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Preface 


As the BASIC language is becoming the favorite of the micro-users 
and small-computer people, more-advanced programs are required 
to take full advantage of the machines. This book contains a mix of 
programs to satisfy the needs of as many users as practical. 

All the programs have been fully tested, and most of the actual 
listings provided as original manuscript. Plotting is an essential 
requirement in many fields of endeavor and in different disciplines. 
To be able to see a result graphically can make a world of difference 
to the user. 

I extend my thanks to Mr. T., who knows what I mean. 


Ken Tracton 


Dedication 
Dedicated to all the little computers in the world, and may they grow 
up some day. 
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AC VOLTAGES 


The AC Voltage program will convert among peak, effective, 
and average of sinusoidal waveforms. You can convert from any one 
to another. Three entries are required: First enter “convert from,” 
then “convert to,” and finally the “value of the first.” 


AC VOLTAGE 


VPEAK 


meee VEFFECTIVE 
SS cA hae OSE VAVERAGE 


VPEAK = 1.414 VEFFECTIVE 
VAVERAGE = 0.637 VPEAK 
AM lg VAVERAGE = 0.9 VEFFECTIVE 
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OUTPUT 
HEADER 


INPUT 
AS, BS AND V 


ERROR 
MESSAGE 


NO 
SET UP SEARCH 
TYPE FOR OF A$ AND BS 


GO TO PROPER 
EQUATION 


OUTPUT 
VALUE 


AC Voltage 


EXAMPLE 


RUN 

ENTER 
A FOR 
INPUT 
Xa¥aZ 


WHERE 


P FOR PEAK. E FOR EFFECTIVE AND 
AVERAGE 


FORMAT IS AS FOLLOWSS 


THE FIRST TWO X°S ARE EITHER 


P,E OR Av AND THE Z IS THE VALUE OF 


THE LST Xa WE ARE CONVERTING FROM LST 


TO OND MEASUREMENT. 
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ENTER 

PE.A+20 

AVERAGE VOLTAGE IS 18 VOLTS 
ENTER 

? STOP 

RUN COMPLETE 


AC VOLTAGES 

00010 REM THIS PROGRAM CONVERTS 
BETWEEN DIFFERENT 

OOO20 REM MEASUREMENTS OF AC VOLTAGES 

00030 REM KT 1978 

0004G PRINT 

OOOSO PRINT ‘"ENTER P FOR PEAK, E FOR 
EFFECTIVE’ 

ODOL0 PRINT ""AND A FOR AVERAGE'' 

OOO70 PRINT "*‘INPUT FORMAT IS AS 


FOLLOWSS'* 
OOO8O PRINT *'X.X32'' 


OOOWG PRINT **WHERE THE FIRST Two X'S 
ARE EITHER’ 

00100 PRINT ‘*PsE OR Aw AND THE Z IS 
THE VALUE OF** 

00110 PRINT ‘THE UST X- WE ARE CON- 
VERTING FROM 4ST** 

00120 PRINT *'TO GND MEASUREMENT’ 

00130 PRINT 

00140 PRINT **ENTERS® 

COLSO INPUT A¥. BE.V 

OOlL0 IF AS = BS THEN 180 

00170 GOTO 700 
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00180 PRINT ""THE FIRST TWO ENTRIES 
MUST BE DIFFERENT’ 

00190 GOTO 140 

oo2e00 IF At = ‘'P"* THEN ecbO 

00210 IF A® = °°E** THEN 2590 

OOeeO IF AS = '*A'* THEN 320 


OO230 PRINT ‘"THE ENTRIES MUST BE 
EITHER AsP OR ET! 

00240 PRINT 

O02°SO GOTO 140 

DO2b0 IF 8% = Slee te THEN @aSO 

O0e?70 IF 8S = "'A'*® THEN 4ODO 

00280 GOTO 230 

O0e90 IF BS = *"P"* THEN 4SO 

00300 IF BS = ""A"*" THEN SOO 

00310 GOTO 230 

00320, 41F 6% =! °° P**= THENTS50 

00330 IF BS = ''E"*" THEN &00 

00340 GOTO 230 

OO350 REM CONVERT FROM P TO E 

OO360 X = V/1-41L4 

00370 PRINT 

00380 PRINT ‘"THE EFFECTIVE VOLTAGE 
DSP A A eV OLAS ae 

00390 GOTO 130 

OOYOO REM CONVERT FROM P TO A 

OO4WLO xX = O.637*V 

OO42O PRINT 

OO430 PRINT ‘"AVERAGE VOLTAGE IS ''3 
AAT aeVOC Si 
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HOuwyd 
00450 
OO4LO 
00470 
00480 


00440 
00sS00 
00510 
005c0 
00530 


00540 
00550 
00540 
00570 
00580 


oos50 
oO0b00 
00610 
O0beO 
00430 


OOb40 


GOTO 130 

REM CONVERT FROM E TO P 

X = 1.41u xy 

PRINT ''PEAK'® 

PRINT ''THE PEAK VOLTAGE IS 


ake ‘VOLTS? 
GOTO 130 


REM CONVERT FROM E TO A 

X = 0.9%V 

PRINT ''PEAK’! 

PRiNT ''THE AVERAGE VOLTAGE IS 
Pes as. VOLTS"! 

GOTO 130 

REM CONVERT FROM A TO P 

X = V/0.b37 

PRINT 

PRINT ""THE PEAK VOLTAGE IS 


sxXs SCP VOLT S27 
GOTO 130 


REM CONVERT FROM A TO E 

X = V/O-4 

PRINT 

PRINT S"cEFFECTIVE VOLTAGES 
ava VOLTS 

GOTO 130 
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BASE CONVERSION 


Base Conversion will allow the user to convert any base 10 
(decimal) number to any base from 2 to 16, which includes binary, 
octal and hexadecimal. This is very useful with computers having 
front panels which must be programmed by binary, octal or hex 
keys. 


EXAMPLE 


THIS FROGRAM ACCEFTS A FOSITIVE INTEGER 
IN BASE 10 (RADIX 10)* AND WILL CONVERT IT 
TO ANY BASE FROM 2 TO 16 


eee Cee em ne ee ee ee me eee Oe ee Se ee ee Ee ee me OO ewe Cre ee PD ee te oe ae ome oe om 


DESIRED BASE IS ? 2 
INTEGER (RADIX 10) = ? 1949 


nee See ee te me Oe wee ee ee ee ee te ree Sere cote cme Same ete ee et ee eee ee em ee ae A ee ee Se ow ee oe ty oe 


1949 RADIX 10:2 2 te) 25-170 0 1 44 (1 O SI eee 


Oe eR mate Mee nee ee NE nen eee CEE SEE HEED Naee SaRE AINE OES SHOE ete REDE SND OES OEE GEE GRE GEE wnSE GORD SED SEE SOG OEE GPU GNEE GOED GUUS Gorn GtOS <aED oom fom 


NESIRED BASE IS 7? 3 


INTEGER (RADIX 10) = ? 3328 


Re ee eee wate Nene OEE NESE ASOT MORE one nt SOOT HOOT GOEL EET Meme SESE CORY GED ORNS GENE GE ERED SPST SET SEEREONS ON MED GOES GREE GEEE GEES KD GND SEES CUNY emEe GD Ghee 


3328 RADIX 10 = 1 1 1 2 00 2 1 BASE 3 


ee ee eee ee ee ee ee nee me et te re ee ne ee ry ere ee nme me me ee ee nee ee ee me 


DESIRED BASE IS ? 4 
INTEGER (RADIX 10) = ? 123421 


ee re me me ae cree ee ee ee ee re ee oe ee ee ce cee ee cee ee ee oe ome ts ee ow ee oe 


123421 RADIX 10= 1 3 202 0 1 3 1 + BASE 


(eR ae eee ee cee cae core See eee cree ee SS ee Oi ae ee ee ep ee aD me ee Ge Sy SY Ce ce ee cee oe 


See aumS See one ee ne GeRE Me SS GEE Sree SEE) a Me ots Ce Ge ES One PRD SE GS GRE OER GE GD EM ED OO ON EEE eee Gee oe ee ee EE se 


123 RADIX 10 = 4 4 3 BASE 5 
DESIRED BASE IS ? 6 
INTEGER (RADIX 10) = ? 7865 


7865 RADIX 10 = 10 0 2 2 3S BASE 6 
DESIRED BASE IS 7? 7 
INTEGER (RADIX 10) = ? 5678 


DESIRED BASE IS ? 8 
INTEGER (RADIX 10) = ? 4326 


ee eee eee eee ree cee me me nome wee ee eres eee em came mS OED Om GRP me OS Stee eee GED aes ee oom oe ee oe Om cae ee Com ome oe we oe om 


4326 RADIX 10= 1 0 3 4 6 BASE 8 
DESIRED BASE IS 7? 9 
INTEGER (RADIX 10) = 7? 34901 


34901 RADIX 10 = 5 2 7 7 8 BASE 
DESIRED BASE IS ? 10 
INTEGER (RADIX 10) = 7? 1978 


Se me cme mem ee mee we te ce ms ee re es eee nee ee ee cree me ee ee ee oe ee ee ee ee ee ee ee ee ee 
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eee eee eee ees ees ees me wns eee hts Ge eee eee eee nme eee NE Nee Ee OES Ke HEE tes le AEN RD ER OD RED RET FARE Ee OE NaS UES SEE ee 


DESIRED BASE IS 7? 11 
INTEGER (RADIX 10) = ? 1234 


eee eee ame ARS ree Sn RS ne SS OE SEES AER RIE OS SRE FOE OE FARE OD ED EE OD SE SO RE SO SEES SS AGES SME ENE OEY GAGE SEED SENS eee GRD GOOD ea wD 


1234 RADIX 10 =A 2 2 BASE 11 


ee ee ee re ee mee ee ne ee a OE Se See Se ee ee EE ee Oe Oe ee ee ee 


DESIRED BASE IS 7? 12 
INTEGER (RADIX 10) = ? 341278 


eS YY AES SD RE GED A Se OS SE SOND SEED GES eee eS SES NE GEES POE EE SES SemS Oe EEE CRED GEE OSS GS ES OE GO OEY OE GE EE ES wy oe 


341278 RADIX 10 = 1 4 5S & BA BASE 


a am cee es ee cere mee mete Cem Ome ey eee mS OE es ns OE Se eS SS EE DOE ee OED GE ES ES ee OWE OD i OD ee ee 


DESIRED BASE IS ? 13 
INTEGER (RADIX 10) = ? 3478 


ee eee me eee SS me ants OS ED ED te EN Mowe Snes Sue em NE ee ES EY Ge UES RD RT REY ew NED CURE CUES SEES GOES SERS SESE EES COD eT AMES GOES ae oT 


3478 RADIX 10 = 1 7 7 7 BASE 13 
DESIRED BASE IS ? 14 
INTEGER (RADIX 10) = 7? 23908 


Oe ere ee tnt wee ae ee ee ms ane ene eT ne nent See NON MOOS OD HORE GY MnmS ORES PEED FERS GENRE AOOY DES comet mene SRS MnOE MEY <OuS Amey SEED eum com epee Some come 


23908 RADIX 10 = 8 9Y DTA BASE 14 
DESIRED BASE IS ? 15 
INTEGER (RADIX 10) = ? 23657 


et ee a ees mee men es See ee ie eee meee meet Se nme Gee FEE ee meee Mem tee ret ae ENS mae Sree Gees mie ene eS Sue SEED MED SRE coer GmGS EE Snr oS wore 


23657 RADIX 10 = 7 0 2 2 BASE 15 


ee ee ee me ee mee mee eee eee nee mee mere nme ere eee ere ee ee ces ee ey me ee mee ee ED SED See ne Se wey ee 


DESIRED BASE IS ? 16 


INTEGER (RADIX 10) = ? 112234 


me ee ae ce mr me en eee mene ee eer ree mee met es Ome mee me eee me Se em ms EE ee OE nC ue mS ey mE SE ry eS ee Gee ee ees 


112234 RADIX 10 = 186 6A BASE 16 


ee me re ee re rm ee ee ee ey me mee ree eee re ee me ee ree ee ere me ems meee meee me crs ere mm oe ne ee ee oe 


DESIRED BASE IS ? STOP 
TERMINATED 
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INPUT RADIX 


& 160-270 
DECIMAL NUMBER 


CALCULATE 
BASE N 280-450 
390 & 
440 & 460 


OUTPUT RESULTS 


Base Conversion 


PROGRAM 


60010 
00020 
60030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
60170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 


PRINT 

REM CHANGING GASES 

REM KT APRIL 1978 

OIM D(20), N(20) 

FOR ys) To 6 

READ O$(¥U) 

NEXT J 

DATA AsBoCoDsE oF 

PRINT! CHANGING BASES" 

PRINT#! S2eeevae2a anew !! 

PRINT 

PRINT"THIS PROGRAM ACCEPTS A POSITIVE INTEGER" 
PRINTNIN BASE 10 (RADIX 10)¢ ANO WILL CONVERT IT 
PRINT"TO ANY BASE FROM 2 10 16" 

PRINT 

PRIN Tamme memwewewcewewawnwnceracecccncecencau!tl 
PRININDESIRED BASE IS "4 

INPUT 8 

IF 8<2 THEN 00170 


IF 8>16 THEN 00170 

IF BeINT(8)>0 THEN 00170 

PRINT 

PRINT"INTEGER (RADIX 10) = t9 
INPUT N(1) 

IF NCLI©INT(N(1))>0 THEN 00230 
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00260 TF N(1)<0 THEN 00230 

00270 PRIN | Vawwnemwmee no wewn cere enw c cen ewe cere ecccwe! 
00280 REM wOw wE CALCULATE 

00290 P=0 

00300 IF HAP2N(}) TREN 00330 
00310 P=Pe} 

00320 GCTO 00300 

00339 FOR 12] 10 P 

00340 NIT) SINT INIT) JRA (Rel) ) 
00350 N(TelL) eN(JT)—(D(]) BA (PT) ) 
00360 NEAT I 

00379 PRINT 

003280 PRKINI 

00399 PRKINI N(L)S" RADIA 10 = "$ 
104090 FOR Js] TO PrP 

00410 IF D(I)>9 THEN 00440 

00420 PRINT UI(I)$8 

00420 GUTO 00450 

00440 PRINEI NF(N(]) <9) 3 

00450 NEAT J 

O0NG6E9 PRINI * BASE "3B 

00470 PRINT 

00480 PRKINI 

00490 GOTO 00160 

00500 END 
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BETA TEST 


The Beta Test program generates a vector of up to 500 ele- 
ments with a beta (8) distribution. Beta distribution is a statistical 


distribution of the form: 


dF= —1l_ x "(1—x)F dx 
B(a,B) 


where 0<x<1 


Beta distribution is sometimes termed Pearson distribution. 


EXAMPLE 


FROGRAM BETATST 


ALPHA LEVEL CPROBABILITY BETWEEN ZERO AND ONE) 


> oo 
Lie Aer eae 


Bl LEVEL (MUST BE GREATER THAN 1) 


as AF 6 

B2 LEVEL?(GREATER THAN 1) 

f Lt 

HOW MANY SAMFLES?(2 TO S00) 

? 24 

# SAMFLES FROBRABILITY{TOLERANCE} EBCBETA)1 
on i ¥. 

MINIMUM MAXIMUM RANGE 
015537 6628815 +47 3544S 

MEAN STU. DEV VARIANCE 
03535354 ©483292 » 23843 


BC(BETA)2 
De 
MEDIAN 
+ 3266354 
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FROGRAM BETATST 


+ LOL 


+164769 


= ,294813 
02 SO4BL 
= 23/604 
= , 257147 
m4 29634 
a eeOos7 So 
= , 280527 
= 4 326454 
= 330405 
= YooUve 
FLOR as 
14A21409 
245014 


some EEO 
ame - 8 AS TARE: 


1460023 
AV2274 
= 5308869 
= 516161 
= ¥82006 


Nee 
#} vcke 33 $2 


i OO NiO CT > OF fF 
t 
Me ee Fee eee” 
# 
° : } tt es 


od 
> 
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= 
Sar 

COON PR NN PON FN OOF OF MO FU OS 
as 
+ 
isd 


ALPHA LEVELCFROBABILITY BETWEEN ZERO AND ONE) 

eon we 

BIiOLEVEC (MUST BE GREATER: THAN SS) 

ie ie 

BO LEVEL?(GREATER THAN 1Y 

eer 

HOW MANY SAMFLES?(2 TO S00) 

P24 

tt SAMPLES FROBARILITY BE BETADL BCRETA 
aA eA gry 2 2 

MINIMUM MAXIMUM RANGE METITAN 
6039445 3+ 34247 4+ 39302 +4127 

MEAN Bite ede v VAR TANCE 
+46871 »4908 $e ee Sm 


rs ies : - - # nee 
VO ee Booed ae 

, _% * —) arms ype = 
Oe oe 4471 SER ese 

‘t 

5 


V 
V 
V 
V 
V 
VJ 
V 
V 
V 
V 
V 


) = .1104643 
is Pe ioere | 
) = ,19891z 
) = ,252128 
) = ,280238 
) = , 292596 
) = , 325647 
6326596 
{353321 
»412742 
6415049 


SON BC] S Whore 


Fol an a an an a 
he 


HO HO OB 


FROGRAM BETATST 


Vi 14 ) = ,435651 
V€ 15 ) = .469488 
VO 16) = 6526962 
MAM, The 6 62364 

Meee = «6 763512 
VC 19 >) = .907176 
Vie 20° > 1.602358 
Meets = 1.19136 
Vucoec ) = 1.44652 

YVewees 2 = 1.896278 
Vi€ 24 ) = 3.34247 


ALPHA LEVEL CPROBARILITY BETWEEN ZERO AND ONE? 
P 6707 
Peeper ve SMUST BE GREATER THAN 12 


Bu? 

R2 LEVEL? (GREATER THAN 1) 

5 

HOW MANY SAMFLES?(2 TO 500) 

? 35 

# SAMPLES PROBABILITY KCBETA) 1 R(BETA)2 
35 7 7 5 

MINIMUM MAXIMUM RANGE METITAN 
+243984 1.39997 1.15598 617341 

MEAN STO. TEV VAR TANCE 
1666961 478181 2284657 

ee ake 245904 

Ut 2? ) = .25349 

VC 3) = ,263098 

VOC04 ) =, 298751 

Vents 27) =) 332787 

VCS ) = .333229 

V( 7) = . 389619 

Mente Pae= «392097 

Unter = .433722 

V¢ 10) = .441554 

VC 41) = .4504679 

PIP = . 465239 

V (13) = .484485 

NV C14 ) = .506295 

V (15 ) = .934688 

¥€ 16) = .555425 

Y© 17) = .562709 

¥V¢ 18) = .617341 

VC 19) = 6640971 

V ¢ 20) = .653856 

Mate te de=. .677902 

¥ ¢ 22) = .69535 

Yo23)) = °,724535 

V ¢ 24) = 6743936 

ees) =, 757597 

V ¢ 26) = ,840583 
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VY ¢ 27 ) = -904806 
YV ¢ 28 >) = .998203 
UVic 29 >) = 1.01687 
Y¢ 3O ) = 1.04546 
VY ¢€ 31 ) = 1.08534 
UPOTrse)) sale rary so 
VCs s) >) ere hasT9 
UNCP Sa) eet 2e5i2 
VY ¢ 35 >) = 1.39997 
ALLOW 
RE-ENTRY INPUT AND ALPHA, BETA 1, BETA 2 
OF CHECK VALUES NO. OF SAMPLES (N) 
VALUES 
SET UP RANDOM | 
GENERATE 
PRINT BACK 
INPUT 
FOR | =1 TON 
CALCULATE 
USE GAMMA 
AND Fite | EUNCTION 
TABLE 
CALC STATISTICS 

PRINT THEM 
USERS bil paella ELI N selina iy ls. 
PROGRAM 

LOCATION 800 + 

Beta Test Flowchart 
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Beta Test Sample Program 


PROGRAM 

00100 REM RETA DISTRIBUTION FROGRAM 

00110 REM FLACE YOUR TEST FROGRAM Af LOCATION 800 

00120 REM THE CURRENT VERSION FRINTS THE GENEFATED ARRAY 
00130 DIM V(S00) 


00140 
00150 
00160 
00179 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00440 
00470 
00480 
00490 
00500 
00510 
00520 
00530 


FRINT’ALFPHA LEVEL CPROBABRILITY BETWEEN ZERO ANDI ONE) * 
INFUT Q4 

IF R40 OR Q421 THEN 00140 

FRINT °BL LEVEL (MUST BE GREATER THAN 1)° 
INPUT Ri 

Bi=INTC(BIi) 

IF Bixi1 THEN 00170 

FRINT*R2 LEVEL? (GREATER THAN 1)° 

INFUT R2 

R2=INTC(B2) 

IF B2<1 THEN 00210 

FRINT “HOW MANY SAMFLES?(2 TO 500)" 

INPUT N 

IF N>SO0OO OR N&2 THEN 00250 

WP=RNINCO) 

FRINT °# SAMPLES"+s "FROBARILITY"»"BCBRETA)1*°»s "BC BETA) 2" 
PRINT NrQ4s81irk2 

A=Q4 

Wi=B1+k2 

FOR I=1 TO N 

K=Bi 

GOSUB 00720 

W8=Q2 

K=W1 

GOSUB 00720 

VC TI) =W8/Q2 

NEXT I 

REM COMPUTE STATISTICALLY SIGNIFICANT DATA AND FRINT IT 
REM INCLUDE MIN/MAX/MEDTAN/RANGE 

WS=W6=0 

FOR I=1 TO N 

WS=WS+tV¢ 1) 

WS6=WS4tU CT) 

NEXT I 

M=W5/N 

W7=(WS-MKWS)/ON-1) 

S=SQR(W7) 

FOR I=1 TON 

FOR J=I TON 

IF V¢(I)“<=VCJ) THEN 00570 


23 


00540 
00550 
00560 
00570 
003580 
00590 
00600 
00610 
00620 
00630 
006440 
004650 
00660 
00670 
00680 
00690 
00700 
00710 


00720 


Q3=V¢(1) 

VCT)=VC I) 

VC J)=Q3 

NEXT J 

NEXT I 

W3=(-1) 

IF W3<0 THEN 090640 

W3=INT(N/2) 

B1=(VCW3)4VCW341))/2 

GOTO 00660 

W2=INT(N/2+.5) 

Bi=V(W2) 
FRINT"MINIMUM" » "MAXIMUM" » "RANGE "Sy "MELIAN® 
FRINT VCi) VON) PVCN)D-UC1) » BI 

FRINT "MEAN"? "STD. TEV"s "VARIANCE" 
PRINT MysSeW7 

GOTO 00800 

RETURN 


REM GAMMA GENERATE SUBROUTINE 


00730 Ql 


00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00840 
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=] 
FOR L=1 TO K 
WI9=RNIICO) 
Q1=Q1xW9 
NEXT L 
Q2=-LOG(Q1)/7A 
RETURN 
REM FLACE YOUR FROGRAM HERE 
FRINT 
FRINT 
FOR IT=1 TO N 
PROLIN To og Vine ace "Derr RE’) 
NEXT I 
END 


BIAS FOR CLASS A TRANSISTOR AMP 


This program calculates the biasing network for a class A 


transistor amplifier through the use of an iterative technique with 
optimization. Then it prints an exact mathematical model and con- 
verts to EIA standard values. 


Equations 


OoonGQ on — & PN 


Oma = Tyan — 25°C/Po 

Rug) = 61a Vec?/44(Timax — Tatar) 

—) 3 

If Vsex > Veen THEN INCREMENT R: by 10%--33 
Rew = 0.1Rt 

Ico = Vcc/2(Ri + Re) 

Tomax) = Ica(1 + Alca) 

Tcamm =109(1 — Alc) 

Tmax = Oya lca(Vec/2) + Tamar 

Veex = Veeuminy + Aselog (Icomax/li) — 0.002 (Tmax -~ 25) 
Tun = Oyalca(Vec/2)(1 — Alcq’) + Taam 

Veen = Vaeymax)+ AVeeclog(Icamm/Ii) — 0.0022 (Tain — 25) 
Rew +» = —2(Vsex — Veen)/Icomaxn — Icom 

IF Rew +» — Ree/Rew < 0.005 THEN — > 15 


IF Tmax > Txmax INCREMENT Ri BY 10% 


25 


16 Rs 


_ hreax hreminRe w+ (Icomax — Iccmis) + Veex — Veen 


hre(MAx)Ic(MINy — hrecminccmax) 


17 Ves = VBen + Icommm(Re/hrewin + Rew+p) 


18 Ri = RsVcc/Vss 


19 Re = RaVcc/Vcc — Ves 


20 Ap = RaRerhremn/Rew+pRs + hremnRew+) 


21 Ps =(1— Alco)’ ( 


where 
Alca 


Tacmax) 


Tacaqy) 
Tymax) 
Pp 


hh 
AVseE 


VBE1(MIN) 


VBEI(MAX) 
RFE(MAX) 


HFE(MIN) 
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INe— 


(Vcc? Ri : 
8(Ri + Rew +») 


variation & quiescent current 
maximum ambient temperature 


minimum ambient temperature 
maximum allowable junction temperature 
rated power dissipation at 25°C 


collector current 
base-emitter voltage change 
minimum base-emitter ‘voltage 


maximum base-emitter voltage 
maximum current gain 


minimum current gain 


Vcc 
Rt 

OUT 
Re(n + 1) 


EXAMPLE 


ENTER MAXIMUM AMBIENT TEMPERATURE (USE CASE TEMP WITH HEAT SINKS)? 
Ese, 

ENTER MINIMUM AMBIENT TEMPERATURE 

? 0 


ENTER MAXIMUM JUNCTION TEMPERATURE RATING 


ENTER MAXIMUM RATED POWER DISSIPATION AT 25C 
? 0.36 


ENTER COLLECTOR CURRENT, SELECTED SUCH THAT I ANE 
20I BRACKET THE EXFECTED OFERATING FOINT 


7 wes 


ENTER TYFICAL KASE-EMITTER VOLTAGE CHANGE OVER THE 
RANGE OF I TO 101 AT 25C 


ENTER TYPICAL MINIMUM BASE-EMITTER VOLTAGE AT I (250) 


ENTER TYPICAL MAXIMUM BASE-EMITTER VOLTAGE AT I (25C) 


ENTER MAXIMUM WORST CASE CURRENT GAIN AT T-MAX 
? 600 

ENTER MINIMUM WORST CASE CURRENT GAIN AT T-MIN 
? 100 

ENTER FOWER SUFFLY VOLTAGE (VCC) IN VOLTS 


? 30 
SIO IOI OOOO I IOIOOIOIIOIOICIOIIIOIOIGIOIOIIOIOIOOOIOIOR IOI OK 


THE FOLLOWING IS AN EXACT MODEL OF THE DESIRED CIRCUIT 
ALL RESISTORS ARE ROUNDED AND ARE NOT EIA STANDARIS 


KIAS RESISTOR Rit = 87057 OHMS 

BIAS RESISTOR R2 = 5605 OHMS 
COLLECTOR/LOAL RESISTOR R3 = 887 OHMS 
EMITTER RESISTOR R4 = 63 OHMS 


MAXIMUM OFERATING TEMPERATURE IS 150 DEGREES C 
MINIMUM OPERATING TEMPERATURE IS 70 DEGREES C 


MAXIMUM COLLECTOR CURRENT IS) .020735 AMPERES 


ra 


MINIMUM 
MINIMUM 


MININUM 


COLLECTOR CURRENT IS .009984 AMFERES 
FOWER GAIN IS 626 


SIGNAL FOWER IS 4.65856E-2 


SOOO IOI OOO IO IOC ICICI OR IO IC CIO ICR ROKK ACIOK I ORK 


THE FOLLOWING VALUES ARE BASED ON 
EIA STANDARD RESISTORS 


BIAS RES 


ISTOR Ri 100000 OHMS 


BIAS RESISTOR R2 = S600 OHMS 


COLLECTOR/LOAD RESISTOR R3 = 1000 OHMS 


EMITTER 
MAXIMUM 
MINIMUM 
MAXIMUM 
MINIMUM 
MINIMUM 


MINIMUM 


RESISTOR R4 = 68 OHMS 

OPERATING TEMPERATURE IS 143.151 DEGREES C 
OPERATING TEMPERATURE IS 64.1898 DEGREES C 
COLLECTOR CURRENT IS 1.89607E-2 AMPERES 
COLLECTOR CURRENT IS 9%.12921E-3 AMPERES 
FOWER GAIN IS) 655 


SIGNAL FOWER IS 4.16713E-2 


OOO OOO OOO IO IO IIOIOR IOI ICICI CII IIR OK AIR KIO 


SRU 


0.946 UNTS. 


RUN COMPLETE. 


RUN 
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Bias 


INPUT PARAMETERS 


CAL VARIABLES 


Re = 1.1Rt 


o) 


7 
ae Re = 1.1 Rt e 


(MATHEMATICAL) 
EFFORTS 
(ELECTRONIC) 
(Exo) 
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PROGRAM 


00100 
nn200 
00300 
onenn 
0ns00 
00400 
00700 
0nso0 
nngoo0 
01900 
1109 
91200 
01309 
01400 
07500 
91400 
91700 
01AaN9 
73900 
oPnad 
02100 
02200 
02300 
02400 
a2s5no 
92400 
02700 
o2RON 
62900 
03900 
03100 
03200 
03300 
H3I4N0 
93500 
03600 
03706 
03809 
03900 
04nn0 
06100 
04200 
04300 
04400 
94500 
04600 
04700 
04800 
04900 
osann 
05100 
05200 
05300 
05400 
65500 
06600 
05700 
05800 
05900 
06000 
06100 
946200 
046300 
06400 
06500 
06600 
06700 
06809 
04900 
07000 
07100 
O7200 
072309 
07400 
07500 
07400 
07700 
O7R09 
07900 
ORnnO 
0R109 
68700 
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REM OPTIMTZATION OF A CLASS@A TRANSISTOR AMPLIFIER 
REM [RIS PROGRAM DETERMINES VIA AN ITERATIVE TECRNIQUE THE 
REM OPTIMUM VALUFS FOR R1 R2 RE ANN RL 

PRINT 

PH IN 1 

PRINT 

Pr IN } Ue wmewoewoeceeeccene reece e se eweeewcosseecco't 
PRINI"ATAS OPTIMIZATION OF A CLASS=A AMPLIFTER" 
PRINT 

PRIN 1 

PRIN] 

NEM KEN TRACTON 9 MARCH 197A 

HEM % VARYJATION OF QUIFSCENT CURRENT 

Az.35 

REM [NPUT PARAMETERS 

PRINIMENTER MAXIMUM AMATENT TEMPERATURE (USE CASE TEMP WITH HEAT 
PRIN 

TNPLE B 

PRINT 

PRINIMENTER MINIMUM AMRIENT TEMPERATURE" 

PRINI 

INPLT C 

PRINI 

PRININENTER MAXIMUM JUNCTION TEMPERATLRE RATING" 
PRIN] 

TNRLE D 

REM 1(J)MAX >25C 

IF O<w?S THEN 93100 

GOTO 03400 

PRINI'T(J)MAX MUST BE GREATER THAN 25C" 

GOTO 0250 

REM }(J)MAK >1(A)MAX 

TF O«<R THER 034600 

60TO 0380 

PRINT" T(J)MAX MUST BF GREATER THAN T( A) MAX" 

GOTO 02590 

PRINT 

PRINI“NENTER MAXIMUM RATED POWFR NISSTPATION AT 25C" 
PRINT 

TNPLT E 

PRINT 

PRINT'ENTER COLLFCTOR CURRFNTe SFLECTED SUCH THAT I ANDO " 
PRINI"]OIL BRACKEY THE EXPECTED OPERATING POINT" 
PRINT 

INPUT F 

PHINI 

PRININENTER TYPICAL BASE@EMITTER VOLTAGE CHANGE OVER THE" 
PRINI"RANGE OF I TO 10Y AT 25C" 

PRIN] 

INPLT G 

PRINI 

PRINTYENTER TYPICAL MINIMUM BASESEMITTER VOLTAGE AT ¥ (25C)" 
PRINT 

INPUT # 

PRINT 


PRINIMENTER TYPICAL MAXIMUM RASESEMITTER VOLTAGE 4T fT (25C)" 
PRINT 

INPUT 1 

PRINT 

PRININENTER MAXIMUM WORST CASE CURRENT GAIN AT Towaxt 
PRINT 

TNPLT x3 

PRINS 

PRINT'ENTER MINIMUM WORST CASE CURRENT GAIN AT TeMINY 
PRINT 

INPUT X4 

TF XG>2k9 THEN 07000 

GOTO A729n 


SINKS)" 


PRKINTIMMINTMUM CURRENT GATN MUST RF LESS THEN MAXIMUM CURRENT GAIN" 


GOTO 0600Nn 


PRINT 

PRINTNENTER POWER SUPPLY VOLTAGE (VCC) IN VOLTS" 
PHINI 

INPLT J 

REM IHERMAL RESISTANCE OF TRANSISTOR 


Kz (D=-25) /F 

REM MINIMUM LOAD RESTSTANCE 

L w(K RJA2) £ (42.4% (NHB) ) 

MEM EMITTER kESISTANCE 

WEM ENTRY POINT TO ITERATIVE LOOP 
M=0.1 1 


ORINN 
08400 
0F500 
08600 
ORT00 
GREOHO 
ORS06 
09000 
09100 
09200 
09300 
9400 
0Ss00 
09400 
09700 
09R00 
09900 
19000 
19100 
10260 
10360 
10400 
10500 
10600 
10700 
10800 
10900 
11900 
11160 
11290 
11300 
11400 
11800 
13600 
11700 
11800 
11900 
Yann 
12160 
12200 
12300 
12400 
12500 
12409 
12709 
12A600 
12900 
13009 
13109 
13200 
13300 
13400 
13500 
13600 
13700 
13800 
13909 
14006 
14160 
14200 
143006 
14400 
145060 
14400 
14700 
142800 
14909 
150900 
18100 
15200 
15300 
15400 
15506 
15400 
15700 
15A00 
16900 
16000 
14190 
16200 
16309 
16400 
14500 
14600 
16709 
14800 


WeEM QUIFSCENT CURRENT 

NeJ/S(20(L eM) } 

MEM MAXTMUM COLLFCTOR CURRENT 

PaN@(j}] oA) 

MEM MINIMUM COLLECTOR CURRENT 

QaNn@()<A) 

REM foMAR 

RBK ENS (5/9) of 

REM VREX 

Sethe (G* (LOG (P/F) /L0G(10))9=(0,00728 (R25) ) 

REM [um 

TRK ENS (5/2) 8 (1 eAAZ) OC 

REM VREN 

UBT +¢ (G®(LOG(O/F) /LOG(10))32(0,00228(T#2S)) 

TF S>U THEN 131300 

VE (o28 (SoU) 37 (P02) 

TF ( (Vem) 4M) <0,005 THEN 10100 

GOTO 11299 

TF w>D THEN 13400 

Re (A3OX4 a ( (VH (PHO) ) oSeli) ) 7 (XZPU Me NRMP) 
R2ebeo (QOH (XT /XG0V)) 

REM ATAS RESISTOR R} 

We (ALI) /X2 

REM BIAS RESISTOR R2 

MB (XB) 4 (Jek2) 

ZE(A LHL ORG) (VE (XLOAG*V) ) 

OTC PPAVAP) HC ( (JAZD LIS (BOC (LeV)A2))) 

GOTO 12000 

ms 

Le1.)L 

GOTO 0A2N46 

LeeLee 

GOTO 1026 

REM OUTPUT KESULTS 

REM THESF RFSULTS ANE AN EXACT SOLUTICN (MATHEMATICAL) 
PRINT 

PRINT 

PRIN [esse POSS HPO HOF SPSHEHHSHHESSHSSHERICEFEOTEHHOHHEHOOHSCOD ON 
PRINT 

PRINI“WIHE FOLLOWING IS AN EXACT MONEL OF THE NESTRED CIRCUIT" 
PRINT"ALL RESISTORS ARF RCUNDFD AND ARF NOT EIT& STANDARDS" 
PRINT 

WaINT (w) 

PRINT'RIAS RESTSTOR R} w “swe! Onmse 

PRIN 

KeINT (XxX) 

PRINT'RIAS RESTSTOR RAP w "EXE" OHMS" 

ORIN 

L=INf (tL) 

PRINTCOLE ECTOR/L OAD RESISTOR R93 sw "3L3*? OnMS” 
PRINT 

VSIAT(V) 

PRINTY!EMI FTE RESISTOR RG w "EVEN Orage 

PRINT 

WEINT(R) 

PRINT MAX TMUM OPFRATING TEMPERATURE ITS "“"Sh$" DEGREES CH 
PRIN 

T2IANI¢T) 

PRINT'MINTMUM OPFRATING TEMPERATURE TS "sts" DEGREES Cc! 
PRINT 

POXINTIMAXTMUM COLLECTOR CURRENT 15 "aPs"t AMPERES" 
PHINT 

PRINI'MINTMUM COLLECTOR CURRENT IS "308" AMPERES” 
PRINT 


7zINT (2) 

PRINI"MINTMUM POWER GAIN IS "92 

PRINT 

PRINTMINTMUM SIGNAL POWER IS "30 

PRINT 

PRINT Nee Ge GG OPES HF OHSOHOFSHHFSSHHOUHHOHHOTEHHSOHHSSHHERERGEHH LEN 


WEM THIS SOLLTION IS AN ELFCTRONIC SOLUTION DERIVED 
REM HY LSING ETA STANDARD RESISTORS AND RE@OPTIMIZING 
GOSlLs 274600 

NEI/ (2% (LoV)) 

PaN@(]eA) 

QBN® (<A) 

AeKkKene® (5/2) 68 

She (GO(LOGIP/F) /L0G6(10)))=(0.00228(R=25) } 
TUeK9n® (5/2) 41} AA?) OC 
Usale(G#(LoG(Q/F)/L0G6(10)))-(0,0022% (T-25)) 

KL w(AQOAGS( (VE (PHO) ) Se) ) J (AFH KGOP) 
KemUe (Q* (xX) /AGSV)) 

we (R} 4) /x2 

Re (KOSS (Sok?) 

Ze(XLELOXA) S(VECXL oXGey) ) 

OF ((L9A) AZ) (C0 JA2) OL) 7 (BE ( (Lo Wd A2))) 
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14900 GOSLs 19900 

1700N PRINT 

171900 PRINT"TRE FOLLOWING VALUES ARF BASED ON" 
17200 PRINT"ETA STANDARD RESISTORS * 

17300 CKINT 

17400 PRIAT"RTAS RESTSTOR RR} & "Swe" OMS" 
17500 PRINI 

174600 PRINI"HIAS KESTSTOR R2 ws "3xX$"* OHMS" 
17700 #RINI 

17AR00 PRINT"COLLECTUR/LOAD RESTSTOR R3 zs “8L 3" OHMS” 
17900 PRIN 

1ANN0 PRINI"EMITTFR RESISTOR RG & "Evel OnMS” 
18100 PRINT 

JRPNN ORINI“MAXIMUM OPFRATING TEMPERATURE IS "$8" DEGREES Cc" 
JRANN PRINE 

JA4ON PRINI“MINTMUM OPFRATING TEMPERATURE TS "378" DEGREES C” 
1ASO0D PRINT 

1ARKA0N PRINT"MAXTMUM COLLECTOR CLRRENT 15 "SP8" AMPERES” 
}A700 PRIN] 

TERON PRINT!MINTIMUM COLLECTOR CURRENT IS "603" AMPERES" 
14900 PRINT 

1990 ZzINI (2) 

19100 SRINT**TNTMUM POWER GAIN JS #82 

19200 PRINI 

19300 PRINI"'MINTMUM SIGNAL POWER IS "80 

19400 PHINT 

19500 ORIN [TMS HSsHOAHHHOHHSSHHSHOHHHFHHEHSHHLHETFSHHHSHFEHHGHSESHSTOLON 
19400 REM NOw we ARE FINISHED 

19700 STOP 

19ANN REM ETA STANCARD FOR R} 

19900 RESTORE 

2nnon wEAC LL] 

20100 TF wool] THEN 20300 

20200 GOTO 20500 

20300 L2zt1 

20409 GOTO 20000 

20500 TF ABS(LleW) >2 ARS(L2ewW) THEN 20700 
20600 GOTC 2090n 

20700 weL2 

20800 GOTO 21190 

20900 wsL)i 

21000 REM ETA STANDARD FOR R2 

21100 RESTORE 

23200 REAC LI 

21300 IF X>L1 THEN 21590 

21409 GUTO 2170n 

21500 Least) 

214009 GOTO 212enN 

21700 TF AHS(L1eA) >2 ABS(L2eA) THEN 21900 
21800 GOTO 22100 

21900 A2Le2 

22000 GOTO 224fn 

22100 Ke} 

22200 RETLAN 

22300 REM EIA STANDARD FOR R3 

22400 RESTURE 

22500 READ LI 

27600 TF LoL) THEN 22500 

22700 L=Li 

22A00 L2=L] 

27900 REM EIA STANDARD FOR RG 

23000 RESTURF 

23100 REan 41 

23200 TF Voll THEN 23100 

23300 v=Li 

23400 RETLRN 

2IS0O0 NATA LelePoledoleBo2e2v2e? 

ZIA0D MATA 3e3eFeVeheeSehvhieH 

23700 DNATA AeFeiNelZolSelho2Ae2tle 

Z2IAND NATA 34039047 25626AsA20100 

237900 MATA 12091509180022002700330 

24000 NATA 390047095460 1680e82001000 

24100 MATA 1200.1500¢180002200e2700 

24200 NATA 330043900 4470005609 +6800 

24300 NATA B200,1F 0401 .2E 0401 .5ENG 

24400 NATA LRENG ee 2c FF NG el, TF 04946 3F 04% 

24500 NATA 3.S9F 14046 TENG 5. 6E04 96. BE 0G 

24600 NATA B.2FNSe1ENS ol e2F0501 SFOS 

24700 NATA 1.RENS 0207E 05026. 7E0504.3F 05 

24AR00 NATA 3.9ENS 040 7FN525.6E 0506. 8E 05 

P4900 NATA B.7AENSeLENGel1 o2F060)] -SFO6e 

250N0 NATA } FENG 0262EN602.7F0603.3E 06 

25100 NATA 3,9EN6o4e TENG SS oF OG PA AEDH ee CF OA 
25700 MATA 1607 

25300 FNOD 
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CAPACITANCE IN PARALLEL AND SERIES 


This program will compute either parallel or series impedance 
for up to 100 capacitors. 


| | | PARALLEL CAPACITANCE 
C1 a eal aah CT =C1+C2+Cs3... 


SIE th atone ner 
EXAMPLE 
RUN 
TYPE 1 FOR PARALLEL. 2 FOR SERIES 
? 1% 
HOW MANY CAPACITORS 


te 
CAPACITOR 1 = 10 
CAPACITOR 2 = 15 
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TOTAL PARALLEL CAPACITANCE = eS MFDS 
TYPE 1 FOR PARALLEL, e FOR SERIES 

ink = 

HOW MANY CAPACITORS 


at 
CAPACITOR 1 = 10 
CAPACITOR 2 = 10 


TOTAL SERIES CAPACITANCE = S MFDS 
/// 


RUN COMPLETE 


INPUT C 


FOR 
INPUT C(!) 1 pa 
: FOR 
E=E+1/C(|) || ae 


OUTPUT E 


OUTPUT E 


Parallel & Series Capacitance 
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PROGRAM 


10 
<8) 
30 
uD 
50 
b0 
70 


40 
100 


110 
120 
130 
140 
450 
160 
1470 
140 
350 
200 
210 
2ee0 
230 


240 
250 
eb0 
270 


REM THIS PROGRAM COMPUTES 

REM SERIES AND PARALLEL CAPACITANCE 
REM KT APRIL 15978 

DIM C{100} 

REM LETS GET GOING 

PRINT 

PRINT *"TYPE 1 FOR PARALLEL. 2 FOR 
SERIES'® 

INPUT L 


IF C< > 1 THEN 2b0 
PRINT 


PRINT "*HOW MANY CAPACITORS'' 
INPUT N 

FOR J = 1 TO N 

PRINT "*CAPACITOR *'3 JS ffH""S 
INPUT C{J} 

PRINT 

NEXT J 

E = 0 

FOR J = 1 TO N 

eee Eat CC i} 

NEXT J 

PRINT 

PRINT °*TOTAL PARALLEL CAPACITANCE 
='"s £5 "'MFDS'' 

PRINT 

GOTO 70 

PRINT ‘"HOW MANY CAPACITORS'' 
INPUT N 
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FOR J = 1 TO N 

PRINT ""CAPACITOR''S JS ""=""S 
INPUT CfJ} 

PRINT 

NEXT J 

E=0 

FOR J = 1 TO N 

E=€ + {1/C{J}} 

NEXT J 

E = 1/E 

PRINT 

PRINT ""TOTAL SERIES CAPACITANCE 
ES Es a ED Sce 

PRINT 

GOTO 70 

END 


CHEBYSHEV BAND-PASS FILTER 
TESLA NIST TS TT GEM TL NEU TE AEE ET PE TE ANSTEY 


This program computes a Chebyshev Band-pass Filter. Infor- 
mation required for this program is as follows: load impedance, 
center frequency, bandwidth in hertz, the slope frequency (uses 
symmetrical slopes, so enter the upper slope only), the desired 
attenuation, and the maximum allowable ripple. 
where 
Ti, T2,...Tn are shunt tanks 
Sz, S4,...SN-1 are series pass 


WHERE 
Ti, T2...Tw ARE SHUNT TANKS 6B BANDWIOTH 


S2, S4...SN-1 ARE SERIES PASS 


VV} + FO FA LOG F 
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EXAMPLE 


BPCHEV FILTER OPTIMIZER 

* 
* 
ENTER THE LOAD IMPEDANCE C0) 
? 100 
ENTER CENTER FREQUENCY 
? 10.7E6 
ENTER BANDWIDTH IN HERTZ 
? 2,2E9 
ENTER SLOFE FREQUENCY 
PEA F LEG 
ENTER THE ATTENUATION DESIRED AT 10910000 
? 84 
ENTER THE MAXIMUM ALLOWED RIFFLE 
Y 169 

OOOO OOOO OOK OR IOK OK I CIOKK 


x 
DESIGN RESULTS FOR A 
CHEBYSHEY 
BAND-FASS 
LTE 
¥ 
OOOO OOK OOOO OO IOK CG OOIOK OK 
* 
CENTER FREQUENCY CHZ) 10700000 
BANDWIDTH IN HERTZ 220000 
ATTENUATION SLOPE FREQUENCY 10910000 


ATTENUATION SLOPE VALUE (CIB) 84 
AS A VOLTAGE RATIO 15848.9 
RIPFLE OR CUTOFF FRE-RISECIB) 1.5 


RIFFLE AS A VOLTAGE RATIO pera Shs ber 
LOATZSOURCE TMPETIANCE 100 
CALCULATED FILTER ORDER 190 
* 
OOOO OOK OK KO AOK 
* 
COMPONENT VALUES 
* 
FORO OKO OOK OK OOO OK K 
x 
STAGE COMPONENT VALUE TYPE 
*x 
1 CAFACTTOR 1.03682E-10 SHUNT/TANK 
INDUCTOR A eR RS | ays: 
CAFACT TOR bey Cae dea i Seis ht SERTES/PASS 
INDUCTOR ba tts and Se 
+ CAFACTTOR 3.O803S5E-10 SHUNT / TANK 
INDUCTOR 7 +18244E-7 
4 CAFACTTOR 1,0 7607 ee SERLES/FASS 
INDUCTOR 2 OQ LIES 
of CAFACTTOR 4.18946E-10 SHUNT / TANK 
INDUCTOR 3. 28O78E-7 
6 CAF ACT TOR Se koe ti ae SERIES/FASS 
INDUCTOR 2 DSBOIE-S 
7 CAF ACTITOR 4.87555E-10 SHUNT / TANK 
INDUCTOR 4,53784E--7 
8 CAP ACTTOR aS a re poe We SERIES/PASS 
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TINQUCTOR 


2. 82571E-5 


19 


x 


CAPACITOR 
INDUCTOR 
CAPACITOR 
INDUCTOR 
CAFACTTOR 
INDUCTOR 
CAPACITOR 
INDUCTOR 
CAPACTTOR 
INDUCTOR 
CAPACITOR 
INDUCTOR 
CAPACTTOR 
INDUCTOR 
CAPACITOR 
INDUCTOR 
CAPACITOR 
INDUCTOR 
CAFACTTOR 
INDUCTOR 
CAPACITOR 
INDUCTOR 


3+23593B8E~-10 
4.22273E-7 
7 -S1087E-12 
2094566E-S5 
3e31182E-10 
4, 16S513E-7 
7 G11 469E-12 
2+90664E-S 
3+ O9P734E-10 
4.34040E-7 
8.17744E-12 
2.70559E-5 
4.S7925E-10 
4.83146E-7 
9 .S14629E-12 
2+32490E-5 
3.70223E-10 
IeP7SIVE-~7 
1,.29456E-11 
1.70904E-5 
2.26385E-10 
9 e77293E-7 


* 
KEKKKKKAK ENT OF RUN OKKKKKKK 


x 
x 


ENTER THE LOAD IMPEDANCE(>0) 


? 1900 


ENTER CENTER FREQUENCY 


7? 19000 


ENTER BANDWIDTH IN HERTZ 


? 1000 


BFCHEY FILTER OPTIMIZER 


ENTER SLOPE FREQUENCY 


? 20000 


ENTER THE ATTENUATION DESIRED AT 20000 


? 30 


ENTER THE MAXIMUM ALLOWED RIPPLE 


? 12 


MAKKAH KKK RHR HK HH RE KKK KOK 


x 


DESIGN RESULTS FOR A 
CHEBYSHEYV 
BAND-FASS 
FILTER 


OOOO IGOR IO IO OOK IK OK 


& 


CENTER FREQUENCY (HZ) 
BANDWIDTH IN HERTZ 


ATTENUATION SLOFE FREQUENCY 


ATTENUATION SLOFE VALUE(DE)> 
AS A VOLTAGE RATIO 


RIPFLE OR CUTOFF PRE-RISE (DR) 
RIPPLE AS A VOLTAGE RATIO 


LOAD/SOURCE IMPEDANCE 


CALCULATED FILTER ORDER 


* 


19000 
1000 
20000 
30 
31.6228 
12 
3.98107 
1900 

4 


SHUNT / TANK 
SERIES/FASS 
SHUNT / TANK 
SERIES/PASS 
SHUNT / TANK 
SERTES/PASS 
SHUNT/TANK 
SERTES/PASS 
SHUNT/TANK 
SERIES/PASS 


SHUNT / TANK 
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OOOO IORI IK KOK 


* 
F COMPONENT VALUES 
OOO OROOKOOOK OR IORI OK 
* 
STAGE COMFONENT VALUE 
* 
1 CAFACITOR 3.47618E-8 
INDUCTOR 2,018S51E-3 
2 CAFACITOR 1.44787E-10 
INDUCTOR »484621 
3 CAFACTITOR 7-40087E-8 
INDUCTOR 9. 4B091E-4 
4 CAPACITOR 1.19493E-10 
INDUCTOR +987206 
2 CAPACITOR 8.21435E-8 
INDUCTOR 8.54201E-4 
& .. CAPACITOR 1.11209E-10 
INDUCTOR «630947 
7 CAPACITOR 7-48119E-8 
INDUCTOR 9.37912E-4 
* 


tack 00Ke END OF RUN xERRREEES 

BPCHEV FILTER OPTIMIZER 
ENTER THE LOAL IMPEDANCE (0) 
ENTER CENTER FREQUENCY 
ENTER BANDWIDTH IN HERTZ 
ENTER SLOPE FREQUENCY 
ENTER THE ATTENUATION DESIRED AT 70000000 
ENTER THE MAXIMUM ALLOWED RIFPLE 


RO OOO OI IO OI OK OK IKK 


x 
DESIGN RESULTS FOR A 

CHEBYSHEV 

BANII-PASS 

FILTER 

OOOO IOI OOO OR OK OK 

x 
CENTER FREQUENCY (HZ) 50000000 
BANDWIDTH IN HERTZ 10000000 
ATTENUATION SLOPE FREQUENCY 70000000 


ATTENUATION SLOFE VALUECDIR) 40 
AS A VOLTAGE RATIO 10090 
RIPFLE OR CUTOFF PRE-RISE(DB) 3 


RIPPLE AS A VOLTAGE RATIO 1.41254 
LOAU/SOURCE IMPEDANCE 73 
CALCULATED FILTER ORDER a 


x 
OO OOK OOK FOR AO KOK 
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SHUNT/TANK 
SERIES/PASS 
SHUNT/TANK 
SERIES/FASS 
SHUNT/ TANK 
SERIES/PASS 
SHUNT/TANK 


COMPONENT VALUES 


¥ 
CIOIOR IO IOIOICI OOK IOK KK 
x 
STAGE COMPONENT VALUE 
x 
1 CAPACITOR 1,.29819E-11 
INDUCTOR 7.80483E-7 
2 CAFACITOR 2-418146E-11 
INDUCTOR 4.19001E-7 
3 CAFACITOR 3-70406E-11 
INDUCTOR 2e/3541E-7 
4 CAPACITOR 1.59463E-i1 
INDUCTOR 6-35391E-7 
2 CAPACITOR 4.51361E-11 
INDUCTOR 2 24479E-7 
é CAFACITOR 1.49846E-11 
INDUCTOR 6+761469E-7 
? CAFACITOR 4.26968E-11 
INDUCTOR 2+373504E-7 
8 CAPACITOR 1,.81936E-11 
INDUCTOR 3+ DO906E-7 
9 CAPACITOR 2eB81236E-11 
INDUCTOR 3.60272E-7 
x 
x 


TOOK ENT 


OF RUN XX RdOKKKKX 


SHUNT/TANK 
SERIES/FASS 
SHUNT/TANK 
SERIES/FASS 
SHUNT/TANK 
SERIES/FASS 
SHUNT/TANK 
SERIES/PASS 


SHUNT/ TANK 
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GET 
IMPEDANCE 
ete 
MESSAGE 


NO 


MESSAGE 


YE 


GET CENTER 
FREQUENCY 


¢ 9) 


GET 


“ante BANDWIDTH 
ge 
O . 


TO 


WIDE 
YE 


GET SLOPE 
FREQUENCY 


e) 


Chebyshev Band-Pass Filter 
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A 


GET 
ATTENUATION 
RETRY 
MESSAGE 


YES 
GET 
RIPPLE 


=i, 


MESSAGE 


NEWTON'S 
INITIAL METHOD 


CALCULATE 
STEP SIZE 


NEW VALUE 
N«-N-STEP 


<ai> YES 


FIRST 
STEP SETUP 
FOR K=1 TON 


YES 


USE OLD CALCULATE 
PARAMETERS PARAMETERS 


S08 NO-K IS EVEN 
YES 
CALCULATE 
SHUNT TANK 
PRINT 
SHUNTS 
SET UP G1 | NEW-—e 
PARAMETER | OLD 
NEXT K 


END OF RUN 


CALCULATE 
SERIES PASS 


PRINT 
SERIES 


00100 
00200 
00300 
00400 
00500 
00600 
00700 
00800 
00900 
01000 
01100 
01200 
01300 
01400 
01500 
01600 
01700 
01800 
019700 
02000 
02100 
02200 
02300 
02400 
02500 
02600 
02700 
02800 
02900 
03000 
03100 
03200 
03300 
03400 
03500 
03400 
03700 
03800 
03900 
04000 
04100 
04200 
04300 
04400 
04500 
04600 
04700 
04800 
04900 
05000 
05100 
05200 
05300 
05400 
05500 
05600 
05700 
05800 


05900 
06000 
06100 
06200 
06300 
06400 


REM THIS FROGRAM DESIGNS 

REM A CHEBYSHEV 

REM BAND-PASS FILTER 

REM GIVEN - 

REM THE CENTER FREQUENCY 

REM THE LOAD IMPEDANCE 

REM THE SLOFE IN THE FORM 

REM OF A FREQUENCY ANI 

REM THE ATTENUATION AT 

REM THE GIVEN FREQUENCY 

REM SINCE THE FILTER HAS A RIPPLE 
REM IN THE PASSED FREQUENCY 

REM RANGE ( IN TERMS OF *GAIN®) 
REM THIS RIFFLE MUST RE SPECIFIED 
REM GET THE LOAD IMPEDANCE 

PRINT TABC16)5*RFCHEY FILTER OF TIMIZER® 
PRINT "x?® 

FRINT *x® 

FRINT "ENTER THE LOAD IMPEDANCE (>0)° 
INFUT Li 

IF Li > O THEN 02300 

GOTO 01900 

REM GET CENTER FREQUENCY IN HERTZ 
PRINT “ENTER CENTER FREQUENCY °* 
INPUT FO 

IF FO > 0 THEN 02900 

PRINT "FREQUENCY MUST BE FOSITIVE® 
GOTO 02400 

REM GET THE BANDWIDTH 

PRINT "ENTER BANDWIDTH IN HERTZ® 
INFUT R 

IF R/2 < FO THEN 03500 

PRINT °“BANDWIDTH IS TOO WIDE® 
GOTO 02900 

REM GET THE SLOPE FREQUENCY 

PRINT “ENTER SLOPE FREQUENCY ® 
INPUT Fi 

REM CHECK FREQUENCY RANGE 


IF Fil >O AND (F1<(FO-R/2) OR Fi>(CFOtR/2)) THEN 04200 


PRINT "SLOPE FREQUENCY IS INCORRECT" 
GOTO 03600 

REM GET THE SLOPE ATTENUATION IN DB 
PRINT “ENTER THE ATTENUATION DESIRED AT °sFi 
INPUT A 

REM CHECK THAT ATTENUATION IS VALID 
IF A>O THEN 05000 

PRINT "ATTENUATION MUST BE >0°* 

GOTO 04300 

REM GET THE RIPPLE FACTOR IN DB 

PRINT "ENTER THE MAXIMUM ALLOWED RIPPLE® 
INPUT D 

REM CHECK THE RIPPLE GIVEN 

IF D>O THEN 05800 

PRINT *RIPPLE MUST BE GREATER THAN O° 
GOTO 05000 

REM ALL THE VALUES HAVE BEEN OBTAINED 
REM FROM THE USER - SO WE CAN 

REM BEGIN THE CALCULATION PROCESS 

REM FIRST WE CALCULATE THE RIPPLE 

REM AS A FUNCTIONAL VALUE EPSILON 
Q@=107(D/10) 

E=SQR(Q/10) 

REM CALCULATE THE PARAMETER THETA X 
A1l=4/(EXE) 


45 


06500 A1=A1*(107(A/10)-1)-2 

06600 REM CALCULATE THE PARAMETER RETA 
06700 REM FIRST NORMALIZE THE FREQUENCIES 
06800 WO=F0xX6. 283185307 

06900 W1i=F1ix6é.283185307 

07000 W2=RxX6. 283185307 

07100 W=(W1kW1-WOKWO)/(W2KW1) 

07200 REM CONTINUE BETA CALCULATION 

07300 BR=SQR(WKW-1) 

07400 B=W+tB 

07500 REM CALCULATE FIRST ESTIMATE OF N 
07600 REM WHERE N IS THE NUMBER OF SHUNT 
07700 REM AND SERIES GROUPS COMBINED 
07800 N=LOG(A1)/LOG(B) 

07900 REM WE NOW LOOP THRU THE VALUES OF N 
08000 REM USING THE NEWTON METHOD FOR 
08100 REM FINDING THE ROOT OF AN EQUATION 
08200 REM ALJUSTING FOR THE BEST VALUE OF N 
08300 REM CALCULATE THE INCREMENTAL VALUE 
08400 REM USING THE EXISTING N 

08500 V3=B"N 

08600 V3=V3+(1/V3)-Al 

08700 V4=V3-(1/V3) 

08800 V5S=V3/V4 

08900 V7=LOG(B)k2 

09000 V6=V5/V7 

09100 REM ADJUST N TO THE NEW VALUE 

09200 REM USING THE CORRECTION 

09300 REM JUST CALCULATED (V6) 

09400 N=N-V6 

09500 REM IS THE CORRECTION VALUE TOO 
09600 REM TO WORRY FURTHER ABOUT 

09700 IF ABS(V46)>.00001 THEN 10100 

09800 GOTO 08500 

09900 REM ROUND UP THE VALUE TO 

10000 REM THE NEXT INTEGER 

10100 N=INT(Nt1) 

10200 REM CALCULATE THE CONSTANT ZETA 
10300 71=D/40 

10400 Z2=Z1xL0G(10)xk2 

10500 Y3=EXF(Z2) 

10600 Y4=(Y3-1)/¢Y3+1) 

10700 YS=Y47(1/(2kN)) 

10800 Yé=Y4-(1/Y4) 

10900 Z=(YéKYS6) 

11000 REM CALCULATE BASIC CONVERSIONS 
11100 REM SHUNT CONVERSIONS 

11200 REM SIN COMPONENT ADJUSTMENT 

11300 N1i=3.141592654/ (2xN) 

11400 REM COMFONENT ALJUST FOR SIN 

11500 Né=2xN1 

11600 REM CALCULATE THE INITIAL VALUES 
11700 REM STARTING WITH ACV1) 

11800 V1i=SIN(N1) 

11900 REM THE FIRST G VALUE (G1) 

12000 G1=2kV1/(SQR(Z)) 

12100 REM THE FIRST B VALUT 

12200 B1i=SIN(NSG) 

12300 B1i=B1ixBitZ 

12400 REM BEGIN FRINTO@UT RUN 

12500 PRINT TABCS) 9 "OKRA ARK K KKK KAMARA RK © 
12600 PRINT °x* 

12700 PRINT TAB(10)s "DESIGN RESULTS FOR A* 
12800 PRINT TAR(16)5 *CHEBYSHEV® 

12900 PRINT TAB(16)% “BAND-PASS* 
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13000 
13100 
13200 
13300 
13400 
13500 
13400 
13700 
13800 
13900 
14000 
14100 
14200 
14300 
14400 
14500 
14600 
14700 
14800 
14900 
15000 
15100 
15200 
15300 
15400 
15500 
15600 
15700 
15800 
15900 
16000 
16100 
16200 
16300 
16400 
16500 
14400 
16700 
16800 
16900 
17000 
17100 
17200 
17300 
17400 
17500 
17600 
17700 
17800 
17900 
18000 
18100 
18200 
18300 
18400 
18500 


PRINT TAB(17)$ *FILTER® 

PRINT °x®* 

PRINT TABCS) 3 OOOO OOOOOO OOOO IK ® 
PRINT *x* 

PRINT "CENTER FREQUENCY (HZ) * FO 

PRINT *BANDWIDTH IN HERTZ*sR 

PRINT "ATTENUATION SLOPE FREQUENCY" »F1 
PRINT "ATTENUATION SLOPE VALUE(DIB)*sA 
PRINT °* AS A VOLTAGE RATIO*s107(A/20) 
PRINT "RIPPLE OR CUTOFF PRE-RISE(DB) "yD 
PRINT "RIPPLE AS A VOLTAGE RATIO"»107(D/20) 
PRINT "LOAD/SOURCE IMPEDANCE *»Li 

PRINT "CALCULATED FILTER ORDER* » INT((N4+1)/2) 
PRINT *x* 

PRINT TABC10) 3 [OOOO OOK & 
PRINT °x* 

PRINT TAB(10)$*COMPONENT VALUES®* 

PRINT °x®* 

PRINT TAB(10) § SOOOOGGOGOOIOR I KK 
PRINT °x* 

PRINT *STAGE*» "COMPONENT ®» "VALUE'» *TYPE® 
PRINT °------------------------------~-------- 
PRINT *x® 

REM PRESET THE VALUES FOR THE FIRST FASS 
G2=61 

V2=V1 

B2=B1 

REM RESULT-PRINT LOOP 

FOR K = 1 TON 

REM IS THIS THE FIRST FASS 

IF K = 1 THEN 16300 

REM CALCULATE G2 FOR THIS FASS 
G2=4kV1/(B1xG1) 

V1=SIN((2&K-1)*N1) 

B1i=SIN(KXN6) 

B1=B1xB1+Z 

REM IS THIS AN ODD OR EVEN PASS 

IF INT((K+.1)/2)k2=K THEN 17500 

REM THIS IS AN ODD PASS - DO SHUNT 
M1=G2/(L1xW2) 

M2=W2KL1/ (WOKWOKG2) 

PRINT Kr "CAPACITOR" »M1s *SHUNT/TANK® 
PRINT ° *»*INDUCTOR" »M2 

GOTO 17900 

REM EVEN FASS - [10 SERIES 

M1=W2/ (WOXWOXL1*G2) 

M2=L1*G2/W2 

PRINT Ks "CAPACITOR" »M1» “SERIES/PASS" 
PRINT © *%»*INDUCTOR® M2 

G1=G2 

NEXT K 

PRINT °x®* 

PRINT "x* 

PRINT SOOO END OF RUN od 
STOP 

END 


47 


CHEBYSHEV HIGH-PASS FILTER 


CRESTLINE DL EL ERENT SE EIS ES SE EES EY LTE SS AED LSS EEE IE ES OE, 


This program derives a Chebyshev high-pass filter using the 
following information: slope frequency, attenuation, cutoff fre- 
quency, load impedance, and maximum allowable ripple. 

Li, Ls, Ls...Ln are shunts (inductive) 
C2, C4,...Cn-1 are series 


L1, L3, L5...LN ARE SHUNTS (INDUCTIVE) 
C2, C4...CN-1 ARE SERIES 


log F 


High-Pass Filter 
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EXAMPLE 


: CHEBHI FILTER OPTIMIZER 
ENTER THE LOAD IMPEDANCE (:-0) 

pfs A ae’ 

ENTER FREQUENCY AT CUTOFF(3 DB DOWN) 

? 1000 

ENTER SLOPE FREQUENCY 

? 2000 


SLOPE FREQUENCY IS INCORRECT 
ENTER SLOPE FREQUENCY 


? 500 
ENTER THE ATTENUATION DESIRED AT 500 
? 84 
ENTER THE MAXIMUM ALLOWED RIPPLE 
arte | 
BOO OOOO OK IOK OK K KKK 
: DESIGN RESULTS FOR A 
CHEBYSHEV 
x HIGHFASS 
FILTER 
x OOOO OOOO OOO OK IOI KOK K4OK 
CUTOFF FREQUENCY (HZ) 1000 


ATTENUATION SLOFE FREQUENCY 700 
ATTENUATION SLOFE VALUE (DB) 84 


AS A VOLTAGE RATIO 15848.9 
RIPPLE OR CUTOFF FRE-RISE(DB) 1 
RIPPLE AS A VOLTAGE RATIO 1.01158 
LOAL/SOURCE IMPEDANCE 100000 
CALCULATED FILTER ORDER 9 
x 
FOCI IOOK 
x 
COMPONENT VALUES 
x 
OOOO OOK OK 
x 
STAGE COMPONENT VALUE TYPE 
x 
1 INDUCTOR 158460.9 SHUNT 
2 CAPACITOR 1.38237E-7 SERIES 
3 INDUCTOR 5341.09 SHUNT 
4 CAPACITOR 8.446594E-8 SERIES 
5 INDUCTOR 3935.4 SHUNT 
6 CAPACITOR 6.86727E-8 SERIES 
7 INDUCTOR 3397.13 SHUNT 
g CAPACITOR 6.20490E-8 SERIES 
9 INDUCTOR 3187.46 SHUNT 
10 CAPACITOR 6.01831E-8 SERIES 
11 INDUCTOR 3187.46 SHUNT 
12 CAPACITOR 6.20689E-8 SERIES 
13 INDUCTOR 3397.12 SHUNT 
14 CAPACITOR 6.86725E-8 SERIES 
15 INDUCTOR 3935.39 SHUNT 
16 CAPACITOR 8.46592E-9 SERIES 
17 INDUCTOR 5341.08 SHUNT 
18 CAPACITOR 1.38237E-7 SERIES 
x 
x 


FOOOOOGOK ENTI OF RUN 2OQOOKKKx 
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CHEBHI FILTER OFTIMIZER 


* 
ENTER THE LOAD IMPEDANCE (30) 
# 50 
ENTER FREQUENCY AT CUTOFF(3 DB DOWN) 
? 1E6 
ENTER SLOPE FREQUENCY 
? 9ES 
ENTER THE ATTENUATION LESIRED AT 900000 
? 66 
ENTER THE MAXIMUM ALLOWED RIFPLE 
7 6 
FOO OOOO OOOO OOOO OOOO OK K 
* 
IESIGN RESULTS FOR A 
CHEBYSHEY 
HIGHFASS 
FILTER 

x 


OOO OOOO IO IO IOI AIO AOR AK AOK 


x 
CUTOFF FREQUENCY (HZ) 1900000 
ATTENUATION SLOFE FREQUENCY 900000 
ATTENUATION SLOFE VALUE CDR? 66 

AS A VOLTAGE KATIO 1995.26 
RIFFLE OR CUTOFF FRE-RISE(EB) 6 


RIFFLE AS A VOLTAGE RATIO 1.99526 
LOAD/SOURCE TMPEDANCE 20 
CALCULATED FILTER ORDER 19 
* 
FOO OOOO OK OK OK AOK 
* 
COMPONENT VALUES 
x 
FOO OOO OOO KKK 
x 
STAGE COMPONENT VALUE TYPE 
x 
1 INDUCTOR 2657772E-4 SHUNT 
2 CAPACITOR 4.26502E-9 SERIES 
3 INDUCTOR 8.63633E-S SHUNT 
4 CAPACITOR 2e¢S8257E-9 SERIES 
a) INDUCTOR 6-25011E-S SHUNT 
6 CAPACITOR 2¢04278E-9 SERIES 
4 INDUCTOR 3eZ21L900E-S SHUNT 
8 CAFACITOR 1.76992E-9 SERIES 
9 INDUCTOR 4.64564E-5 SHUNT 
10 CAFACITOR 1.460849E-9 SERIES 
a1 INDUCTOR 4.29211E-5 SHUNT 
12 CAFACITOR 1.50624E-9 SERIES 
13 INDUCTOR 4.06474E-5S SHUNT 
14 CAFACITOR 1-44015E-9 SERIES 
1S INDUCTOR 3-91865E-S SHUNT 
16 CAPACITOR 1.39853E-9 SERIES 
17 INDUCTOR 3.83027E-S SHUNT 
18 CAPACITOR 1.37514E-9 SERIES 
19 INDUCTOR 3.78717E-S SHUNT 
20 CAPACITOR 1+34689E-9 SERIES 


21 INDUCTOR 3.78401E-5 
22 CAPACITOR 1.37287E-9 
23 INDUCTOR 3.82097E-5 
24 CAPACITOR 1.39412E-9 
25 INDUCTOR 369O377E-5 
24 CAFACITOR 1.43388E-9 
27 INDUCTOR 4.O4519E-5 
28 CAFACITOR 1.49850E-9 
29 INDUCTOR 4,26919E-S 
30 CAPACITOR 1.59980E-9 
31 INDUCTOR 4.62097E-S 
32 CAPACITOR 1.76095E-9 
33 INDUCTOR Se 1LPAS7E-S 
34 CAPACITOR 2+QO3430E-9 
35 INDUCTOR 6+22827E-S 
36 CAFACITOR 20S7553E-9 
37 INDUCTOR 8.-62019E-S 
38 CAPACITOR 4.26096E-9 
x 
x 


OOOO END OF RUN OKOKKOKKX 
CHEBHI FILTER OPTIMIZER 


x 

x 

ENTER THE LOAD IMPEDANCE (0) 

? 735 

ENTER FREQUENCY AT CUTOFF(3 DB DOWN) 
? 30E6 

ENTER SLOPE FREQUENCY 

? 15E6 

ENTER THE ATTENUATION DESIRED AT 15000000 
Tole 

ENTER THE MAXIMUM ALLOWED RIPPLE 

? 6-02 


OOOO COORG OKO OK OOK 


DESIGN RESULTS FOR A 
CHEBYSHEYV 
HIGHFASS 

FILTER 


CIO OOOO OIRO KKK 
x 
CUTOFF FREQUENCY (HZ) 30000000 


ATTENUATION SLOPE FREQUENCY 15000000 
ATTENUATION SLOPE VALUE(CDRB) 12 


AS A VOLTAGE RATIO 3-98107 

RIPPLE OR CUTOFF PRE-RISE(IB) 6.02 
RIPPLE AS A VOLTAGE RATIO 1.99986 
.OAD/SOURCE IMPEDANCE 73 
CALCULATED FILTER ORDER 2 
x 

OOO OOK OK KKK 
x 

COMPONENT VALUES 
x 

MOKA IOK KK KKK KKK 
x 
STAGE COMPONENT VALUE 


SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 


Se SR ONS Oe SEED tS RS ED SE ENS SEES GET ES SEED eeeS SEED SEED GEES SEED COSS See GENE GREE GENS GE GEES ST FEES SEED GE GS EES SEE eS GERD OEE GHEE SUED EOEE GEES GEES OnE MOTE SEEE GOED GED OED O5GD GES auEE GREP aim) eOuD & 


i INDUCTOR 1.38647E-6 SHUNT 
2 CAPACITOR 1.00956E-10 SERIES 
3 INDUCTOR Ge i20ige—/ SHUNT 
4 CAPACITOR 9.47336E-11 SERIES 
b 
x 


sooo ENT OF RUN 200000 


LOAD IMPEDANCE 
CUTOFF FREQ. 
SLOPE FREQUENCY 


GET THE INPUT RETRY 
VALUES lapis MESSAGE 


ATTENUATION 
IN DB 
SSSI DE : INVALID INPUT 
CALCULATE | ALPHA 
BETA 
| GAMMA 


FIRST 
ESTIMATE 
FOR N 


USE N FOR 
NEW STEP SIZE 


SET UP NEW 
| N 


(N =N — V6) 


SMALL 
ENOUGH 


ROUND UP 
N 


Chebyshev High-Pass 
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INITIALIZE 
FOR FIRST | G1, V1, B1 
STEP 


PRINT TITLES 
AND 
PARAMETERS 


FOR! =1TON 


NOTE: FILTER ORDER = 
INT((N+1)/2) 


PRINT SERIES 
CAPACITOR 


NEXT | 
END MESSAGE (stop) 


Chebyshev High-Pass 


53 


PROGRAM 


00017 REM THIS PROGRAM DESIGNS 

00024 REM A CHEBYSHEV 

00031 REM HIGHFPASS FILTER 

00038 REM GIVEN - 

00045 REM THE CUTOFF FREQUENCY 

00052 REM THE LOAD IMPEDANCE 

00059 REM THE SLOPE IN THE FORM 

00066 REM OF A FREQUENCY AND 

00073 REM THE ATTENUATION AT 

00080 REM THE GIVEN FREQUENCY 

00087 REM SINCE THE FILTER HAS A RIPPLE 
00094 REM IN THE PASSED FREQUENCY 

00101 REM RANGE ( IN TERMS OF “GAIN") 

00108 REM THIS RIPPLE MUST BE SPECIFIED 
00115 REM GET THE LOAD IMPEDANCE 

00122 FRINT TAB(16)%"CHEBHI FILTER OPTIMIZER" 
00129 PRINT "X* 

00136 PRINT "xX* 

00143 PRINT "ENTER THE LOAD IMPEDANCE(>0)" 
00150 INPUT Ri 

00157 IF Ri > O THEN 00171 

001464 GOTO 00143 

00171 REM GET CUTOFF FREQUENCY IN HERTZ, 
00178 PRINT “ENTER FREQUENCY AT CUTOFF (3 DB DOWN) * 
00185 INPUT FO 

00192 IF FO > O THEN 00213 

00199 PRINT “FREQUENCY MUST BE FOSITIVE" 
00206 GOTO 00178 

00213 REM GET THE SLOFE FREQUENCY 

00220 FRINT "ENTER SLOFE FREQUENCY" 

00227 INFUT Fi 

00234 REM CHECK FREQUENCY RANGE 

00241 IF FO>Fi THEN 00262 

00248 PRINT "SLOPE FREQUENCY IS INCORRECT’ 
00255 GOTO 00220 

00262 REM GET THE SLOFE ATTENUATION IN DB 
00269 FRINT "ENTER THE ATTENUATION DESIRED AT "#F1 
00274 INFUT A 

00283 REM CHECK THAT ATTENUATION IS VALID 
00290 IF A>0 THEN 00318 

00297 PRINT “ATTENUATION MUST BE =0* 

00304 GOTO 00269 

00311 REM GET THE RIFPLE FACTOR IN DIB 
00318 PRINT "ENTER THE MAXIMUM ALLOWED RIPPLE® 
00325 INFUT D 

00332 REM CHECK THE RIPFLE GIVEN 

00339 IF D>0 THEN 00374 

00346 PRINT “RIPPLE MUST BE GREATER THAN 0° 
00353 GOTO 00318 

00360 REM ALL THE VALUES HAVE BEEN ORTAINED 
00367 REM FROM THE USER - SO WE CAN 

00374 ‘REM BEGIN THE CALCULATION PROCESS 
00381 REM FIRST WE CALCULATE THE RIPPLE 
00388 REM AS A FUNCTIONAL VALUE EPSILON 
00395 Q=10°(D/10) 

00402 E=SQR(Q/10) 

00409 REM CALCULATE THE PARAMETER ALFHA 
00416 A1=4/ (EXE) 

00423 A1=A1K(107(A/10)~-1)-2 
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00430 REM CALCULATE THE PARAMETER BETA 
00437 REM FIRST NORMALIZE THE FREQUENCIES 
00444 WO=FOKS. 283185307 

00451 Wi=F1xé. 283185307 

00458 REM CONVERT TO STANDARDIZED FORM 
00465 W=WO/W1 

00472 REM CONTINUE BETA CALCULATION 

00479 B=SQR(WkW-1) 

00486 B=W+B 

00493 REM CALCULATE FIRST ESTIMATE OF N 
00500 REM WHERE N IS THE NUMBER OF SHUNT 
00507 REM AND SERIES GROUPS COMBINED 
00514 N=LOG(A1)/LOG(B) 

00521 REM WE NOW LOOP THRU THE VALUES OF N 
00528 REM USING THE NEWTON METHOD FOR 
00535 REM FINDING THE ROOT OF AN EQUATION 
00542 REM ADJUSTING FOR THE BEST VALUE OF N 
00549 REM CALCULATE THE INCREMENTAL VALUE 
00556 REM USING THE EXISTING N 

00563 V3=RON 

00570 V3=V3+(1/V3)-Al 

00577 V4=V3-(1/V3) 

00584 V5=V3/V4 

00591 V7=LOG(B) x2 

00598 V6=V5/V7 

00605 REM ADJUST N TO THE NEW VALUE 

00612 REM USING THE CORRECTION 

00619 REM JUST CALCULATED (V6) 

00626 N=N-V6 

00633 REM IS THE CORRECTION VALUE TOO 
00640 REM TO WORRY FURTHER ABOUT 

00647 IF ABS(VS6)>.00001 THEN 00675 

00654 GOTO 00563 

00661 REM ROUND UP THE VALUE TO 

00668 REM THE NEXT INTEGER 

00675 N=INT(N+1) 

00682 REM CALCULATE THE CONSTANT GAMMA 
00689 Y1=11/40 

00696 Y2=Y1x*LOG(10) x2 

00703 Y3=EXF(Y2) 

00710 Y4=(Y3-1)/(Y341) 

00717 YS=Y47(1/(2KN) ) 

00724 Y6=Y4-(1/Y4) 

00731 Y=(Y6xKY6) 

00738 REM CALCULATE RASIC CONVERSIONS 
00745 REM SHUNT CONVERSIONS 

00752 REM SIN COMPONENT ADJUSTMENT 

00759 N1=3.141592654/ (2KN) 

00766 REM COMPONENT ADJUST FOR SIN 

00773 N6=2KN1 

00780 REM CALCULATE THE INITIAL VALUES 
00787 REM STARTING WITH ACV1) 

00794 V1=SIN(N1) 

00801 REM THE FIRST G VALUE (G1) 

00808 G1i=2KV1/(SQR(Y)) 

00815 REM THE FIRST B VALUE 

00822 B1=SIN(NS) 

00829 B1i=B1i*B1+Y 

00836 REM BEGIN FRINTOUT RUN 

00843 FRIINT TAB (CS) 3 “UO GOOOIOOOK OOOO OOK 


00850 
00857 
00864 
00871 
00878 
00885 


00892 
00899 
00906 
00913 
00920 
00927 
00934 


00941 
00948 
00955 


00962 
00969 
00976 
00983 
00990 
00997 
01004 
01011 
01018 
01025 
01032 
01039 
01046 
01053 
010460 
01067 
01074 
01081 
01088 
01095 
01102 
01109 
01116 
01123 
01130 
01137 
01144 
01151 
01158 
01145 
01172 
01179 
01186 
01193 
01200 
01207 
01214 
01221 
01228 
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PRINT °x* 

FRINT TAB(10)s"*DESIGN RESULTS FOR A® 

PRINT TAB(16)% "CHEBYSHEV® 

PRINT TAB(16) 5 *HIGHFASS® 

PRINT TAB(17)5"FILTER® 

PRINT °X® 

PRINT TAB(S) § °SXSSSERERAAKAAKARAERASESTA SEES © 
PRINT °x° 

PRINT "CUTOFF FREQUENCY (HZ) °sFO 

PRINT "ATTENUATION SLOPE FREQUENCY Fi 
PRINT ATTENUATION SLOPE VALUE(DB)*sA 
PRINT AS A VOLTAGE RATIO*»10°(A/20) 
PRINT *RIPPLE OR CUTOFF PRE-RISE(DB) "sD 


PRINT "RIPPLE AS A VOLTAGE RATION Ons Megas 


PRINT "LOAD/SOURCE IMPEDANCE" 
PRINT *CALCULATED FILTER ORDER’ » INT ((N#L)/2) 


PRINT °x®* 

PRINT TABC10) § °XRRERERAKERRARARRERE © 
PRINT °x°* 

PRINT TAB(10)$*COMPONENT VALUES®* 
PRINT "x* 

PRINT TAB(10) § °XRRKAKKRRRRAREERRE RE * 
PRINT °x* 

PRINT "STAGE"» *COMPONENT®» “VALUE®» *TYPE® 
PRINT "anno n-ne 
PRINT °x* 

REM PRESET THE VALUES FOR THE FIRST PASS 
G2=G1 

v2=V1 

R2=51 

REM RESULT-FRINT LOOP 

FOR I = 1 TON 

REM IS THIS THE FIRST PASS 

IF I = 1 THEN 01102 

REM CALCULATE G2 FOR THIS PASS 
G2=4KV1/(B1G1) 

Vi=SIN( (2KkI-1) KN1) 

Bi=SIN(IKN6) 

R1=BixkBit+Y 

REM IS THIS AN ODD OR EVEN PASS 

IF INT((I+.01)/2)k2=I THEN 01172 

REM ODD PASS - BO SHUNT 

Mi=R1/(WOKG2) 

PRINT Ir * INDUCTOR »Mi» "SHUNT® 

GOTO 01186 

REM EVEN PASS - DO SERIES 
M1i=1/(WORR1*G2) 

PRINT Ir *CAPACITOR® »M1» °SERIES* 

Gi=G2 

NEXT I 

PRINT *x* 

PRINT *x* 

PRINT ‘[MadauUook END OF RUN (odudOdOKK ES 
STOP 

END 


CHEBYSHEV LOW-PASS FILTER 


LAT ES LITTLE ATED BDL 5 TN AEB PE OSL TR BY EN A BE IES SN EP RTL RRB ATEN TBD 


This program computes a Chebyshev low-pass filter using the 
following information: slope frequency, attenuation, cutoff fre- 
quency, load impedance, and maximum allowable ripple. 


Rt L2 L4 


Ci C3 C5 RL 


C1, C3...CN ARE SHUNTS (CAPACITIVE) 
L2, L4,...LN-1 ARE SERIES (INDUCTIVE) 


dB 


ATTENUATION 


| 
Caeoeenie tL ch 


FO. FA sche 


Low-Pass Filter 


o7 


EXAMPLE 


CHEBLO FILTER OPTIMIZER 
x 


x 

ENTER THE LOAD IMPEDANCE (>0) 

? 10000 

ENTER FREQUENCY AT CUTOFF(3 DB DOWN) 

? 15000 

ENTER SLOPE FREQUENCY 

7 19000 

ENTER THE ATTENUATION DESIRED AT 19000 
? 90 


ENTER THE MAXIMUM ALLOWED RIPPLE 
eet | 


BOO OOOO OO OOK IO OK KK OK CH 
% 
DESIGN RESULTS FOR A 
CHEBYSHEV 
LOW-FASS 
FILTER 
* 
OOO OI OR IOI IK HOR OK IOK AOR K 
x 
CUTOFF FREQUENCY (HZ) 15000 
ATTENUATION SLOFE FREQUENCY 19000 
ATTENUATION SLOFE VALUE(CDB) 90 
AS A VOLTAGE RATIO 31622.8 
RIPFLE OR CUTOFF FRE-RISE(DB) «1 


RIPFLE AS A VOLTAGE RATIO 1.01158 
LOAD/SOURCE IMPEDANCE 10000 
Pentre FILTER ORDER 18 
FOO ICICI KHOR AK OK 
* 
COMPONENT VALUES 
x 
FOO OOK HOR K KOK KKK 
* 
STAGE COMPONENT VALUE TYFE 
* 
1 CAFACITOR 5-48063E~-13 SHUNT 
fs INDUCTOR Pe22157E=35 SERIES 
3 CAFACTTOR 1.63977E=12 SHUNT 
4 INDUCTOR 2.02504E~-3 SERIES 
a) CAFACTTOR weer sleet SHUNT 
& INDUCTOR 2-S75S6E-3 SERIES 
7, CAFACTTOR 2a fA DvOkn ia SHUNT 
8 INDUCTOR 2-99421E-3 SERIES 
Kd CAFACTTOR 3.10734E-12 SHUNT 
10 INDUCTOR 5. 3187153 SERIES 
14 CAFACTTOR 3.38615E~-12 SHUNT 
12 INDUCTOR 3.S6524E-3 SERIES 
13 CAFACTTOR Se S9SO4E-12 SHUNT 
14 INDUCTOR 3.74183E-3 SERIES 
13 CAFACTITOR 3.73367E-12 SHUNT 
16 INDUCTOR 3.85264E~-3 SERIES 
i/ CAF ACTITOR 3-81101E-12 SHUNT 


18 INDUCTOR 3.89980E-3 

19 CAPACITOR 3.82641E-12 
20 INDUCTOR 3-88410E-3 

21 CAPACITOR 3.78014E-12 
22 INDUCTOR 3.80529E-3 

23 CAFACITOR 3-67141E-12 
24 INDUCTOR 3+ 466196E~-3 

20 CAPACITOR 3 A9B1SE-12 
26 INDUCTOR 3,45111E-3 

27 CAPACITOR 3. 25626E-12 
28 INDUCTOR 3-16695E-3 

29? CAFACITOR 2¢937387E-12 
30 INDUCTOR 2679825E-3 

31 CAFACTTOR 2eV2709E-12 
32 INDUCTOR 2+ S2084E~-S 

33 CAFACTTOR 1.98693E-12 
34 INDUCTOR 1.67123E-3 
a CAFACITOR 1.19860E-12 
x 


ROOROOORIOKK END OF RUN JOO 


CHEBLO FILTER OPTIMIZER 
x 
x 
ENTER THE LOAD IMPEDANCE (>0) 
? 73 
ENTER FREQUENCY AT CUTOFF (3 DB DOWN) 


? 1.01E6 
ENTER SLOFE FREQUENCY 


? 0 

SLOPE FREQUENCY IS INCORRECT 
ENTER SLOPE FREQUENCY 

? 1.5E6 

ENTER THE ATTENUATION BESIRED AT 
? 30 

ENTER THE MAXIMUM ALLOWED RIFFLE 
gay 


1500000 


OOOO COICO OOOO OK OK OK 


* 
ESIGN RESULTS FOR A 
CHERYSHEYV 
LOW-FASS 
GLE Les 
x 
OOOO OR OIC IOI OK CIO KKK 

x 
CUTOFF FREQUENCY (HZ) 1010000 
ATTENUATION SLOFE FREQUENCY 1500000 


ATTENUATION SLOPE VALUE COB) 30 
AS A VOLTAGE RATIO 31.6228 
RiPele OR CUTOFF FRE-RISECDE) 1 


RIFFLE AS A VOLTAGE RATIO 1.12202 
LOAD/SOURCE IMPEDANCE 73 
CALCULATED FILTER ORDER 6 
* 

OOOO OOO OOK COOK OK 
x 

COMPONENT VALUES 
* 


SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 
SERIES 
SHUNT 


99 


FORO OK KK AOKOK 


x 

STAGE COMFONENT VALUE TYFE 

x 
2 CAPACITOR 3-4ASOLLE-11 SHUNT 
2 INDUCTOR 1-346330E-6 SERIES 
3 CAPACITOR 1.00637E-10 SHUNT 
4 INDUCTOR 2-14711E-6 SERIES 
a] CAPACITOR 1.29171E-10 SHUNT 
6 INDUCTOR 2-44765E-6 SERIES 
PA CAFACTTOR 1.34624E-10 SHUNT 
8 INDUCTOR 2+ 54969E-6 SERIES 
9 CAFACITOR 1.18135E-10 SHUNT 
10 INDUCTOR 1.83078E-6 SERIES 
11 CAFACITOR 7 e49927E-11 SHUNT 

* 

x 


.OOOOROKKKK END OF RUN XXKKKKKKX 
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INPUTS Grany 


CUTOFF FREQ. 

SLOPE FREQ. 

SLOPE ATTENUATION Suatticek eeivaALe ——— 
LOAD RESISTANCE MESSAGE 
RIPPLE 


EPSILON Sia ea 

cama | CALCULATE 
Y 

acta | CALCULATE 
B 

CALCULATE 

FIRST N 


STEP CALCULATE 
SIZE hi 


Ee  [PCALCULATE 
N=N—A) NEWN 


Chebychev Low-Pass 
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INITIALIZE 


FOR 
PRINTOUT 


FILTER ORDER = 
PRINT STATS NO. OF PAIRS 


INITIAL 
Gi, V1,B1) VALUE 
SETUP 


FOR!=1TON 


CAPACITOR 
CALCULATE 
SHUNT 
PRINT SHUNT 
VALUE 
NE RUN 


Chebychev Low-Pass 


CALCULATE | INDUCTOR 
PRINT SERIES 
VALUE 
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PROGRAM 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00249 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
060340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00350 
00560 
00370 
00S80 
YOS9O 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 


REM THIS FROGRAM DESIGNS 
REM A CHERYSHEV 

REM LOW-FASS FILTER 

REM GIVEN - 

REM THE CUTOFF FREQUENCY 


REM THE LOAD IMPEDANCE 
REM THE SLOFE IN THE FORM 


REM OF A FREQUENCY AND 

REM THE ATTENUATION AT 

REM THE GIVEN FREQUENCY 

REM SINCE THE FILTER HAS A RIFPLE 
REM IN THE FASSED FREQUENCY 

REM RANGE (¢ IN TERMS OF "GAIN*") 
REM THIS RIPPLE MUST BRE SFECIFIED 


REM GET THE LOAD IMPEDANCE 

FRINT TAB(16)5"CHEBLO FILTER OF TIMIZER" 
PRINT *X°* 

FRINT "x" 

FRINT "ENTER THE LOAD IMPEDANCE (:0) " 
INFUT Ri 

Reed ee Oo THEN, 00320 

GOTO 00280 


REM GET CUTOFF FREQUENCY IN HERTZ 

PRINT "ENTER FREQUENCY AT CUTOFF (3 DB DOWN)*" 
INFUT FO 

IF FO * O THEN 00380 

FRINT "FREQUENCY MUST KE FOSITIVE* 

GOTO 00330 

REM GET THE SLOPE FREQUENCY 

PRINT “ENTER SLOFE FREQUENCY * 

INPUT F1 

REM CHECK FREQUENCY RANGE 

IF FisFO THEN 00450 

FRINT "SLOPE FREQUENCY IS INCORRECT" 
GOTO 00390 

REM GET THE SLOFE ATTENUATION IN DR 
PRINT "ENTER THE ATTENUATION DESIRED AT “$F 
INFUT A Y 
REM CHECK THAT ATTENUATION IS VALIL 

IF AsO THEN 003530 

FRINT "ATTENUATION MUST BE *0" 

GOTO 00460 

REM GET THE RIFFLE FACTOR IN DB 

FRINT "ENTER THE MAXIMUM ALLOWED RIPPLE" 
INFUT f 

REM CHECK THE RIFFLE GIVEN 

IF D:0 THEN 00610 

FRINT "RIFFLE MUST BE GREATER THAN 0° 
GOTO 00530 

REM ALL THE VALUES HAVE BEEN ORTAINED 
REM FROM THE USER - SO WE CAN 

REM BEGIN THE CALCULATION PROCESS 

KEM FIRST WE CALCULATE THE RIPPLE 

REM AS A FUNCTIONAL VALUE EPSILON 

Q=10° (101/10) 

E=SQR(Q/10) 

REM CALCULATE THE FARAMETER ALFHA 

A1L=4/ (EXE) 

AL=A1K(10"(A/10)-1)-2 


00490 
00700 
00710 
00720 
00730 
00740 
00750 
00740 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00840 
00870 
00880 
0089Q 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 


01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
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REM CALCULATE THE PARAMETER BETA 
REM FIRST NORMALIZE THE FREQUENCIES 
WO=FOX6. 283185307 
Wi=F1x*6.283185307 

REM CONVERT TO STANDARDIZED FORM 
W=Wi/WO 

REM CONTINUE BETA CALCULATION 
B=SQK (CWKW-1) 

BR=W+k 

REM CALCULATE FIRST ESTIMATE OF N 
REM WHERE N IS THE NUMBER OF SHUNT 
REM AND SERIES GROUPS COMBINED 
N=LO0G(A1)/LOG(B) 

REM WE NOW LOOF THRU THE VALUES OF N 
REM USING THE NEWTON METHOD FOR 
REM FINDING THE ROOT OF AN EQUATION 
REM ADJUSTING FOR THE BEST VALUE OF N 
REM CALCULATE THE INCREMENTAL VALUE 
REM USING THE EXISTING N 

V3=B"N 

V8=V34+¢01/V3)-Al 

V4=V3-(C1/V3) 

VS=V8/V4 

V7=LO0G6(B) x2 

V6=VS/V7 

REM ADJUST N TO THE NEW VALUE 

REM USING THE CORRECTION 

REM JUST CALCULATED (V4) 

N=N-V6 

REM IS THE CORRECTION VALUE TOO 
REM TO WORRY FURTHER AKROUT 

IF ABS(V4)<.00001 THEN 01040 

GOTO OO880 

REM ROUND UF THE VALUE TO 

REM THE NEXT INTEGER 

N=INTCN+41) 

REM CALCULATE THE CONSTANT GAMMA 
Y1=0/40 

Y2=YI*KXLOG(10) x2 

Y3=EXFCY2) 

Y4=(Y3-1)/¢0Y341) 

YS=Y47° (1/7 (02XN) ) 

Y6=Y4-C1/Y4) 

Y-CY&KY6) 

REM CALCULATE BASIC CONVERSIONS 
REM SHUNT CONVERSIONS 

REM SIN COMPONENT ADJUSTMENT 
N1=3.141592654/ (2xN) 

REM COMPONENT ADJUST FOR SIN 
N6=2*N1 

REM CALCULATE THE INITIAL VALUES 
REM STARTING WITH ACV1) 

Vi=SINCNI)D 

REM THE FIRST G VALUE (G1) 
Gi=2kV1/(SQRCY)) 

REM THE FIRST B VALUE 

Bi=SIN(NS6) 

BKi=BixBit+y 

REM BEGIN PRINTOUT RUN 

PRINT TAB CS) 3 “OOOO OOOO OR OOK OOK OOK OK IK ® 
FRINT "x® 


01300 
01310 


01320 
01330 
01340 
01350 
01340 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 


01470 
01480 


01490 
01500 
01510 
01520 
01530 
01540 
01550 
015460 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
G1650 
01660 
01670 
91480 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01740 
01770 
01780 
01790 
01800 
01810 
01820 
01830 


PRINT TAB(10)$"DESIGN RESULTS FOR A° 
PRINT TAB(16)$ "CHEBYSHEV" 

PRINT TAB(16) 5 "LOW-PASS® 

PRINT TAB(17)5°FILTER® 

PRINT "x" 

PRINT TAB CS) 6 Gd dOOOOOOCOOO OOOO IRI IK # 
PRINT "x* 

PRINT "CUTOFF FREQUENCY (HZ) "»FO 

PRINT "ATTENUATION SLOPE FREQUENCY" »F1 
PRINT "ATTENUATION SLOFE VALUE (DB) *»A 
PRINT AS A VOLTAGE RATIO" »107(A/20) 
PRINT "RIPPLE OR CUTOFF PRE-RISE(DB)*»D 
PRINT "RIFPLE AS A VOLTAGE RATIO" s10°(D/20) 
PRINT "LOAD/SOURCE IMPEDANCE" »R1 

PRINT "CALCULATED FILTER ORDER* » INT((N+1)/2) 
PRINT "x" 

PRINT TAB(10) 5 OOOO OOK | 

PRINT "x" 

PRINT TAB(10)% "COMPONENT VALUES® 

PRINT "x* 

PRINT TAB(10) 3 [OOOO OOK " 

PRINT "x" 

PRINT "STAGE" » "COMPONENT" » "VALUE"» "TYPE" 
PRINT "-~-----~-----~----------------------------- 
PRINT "x" 

REM PRESET THE VALUES FOR THE FIRST PASS 
G2=G1 

V2=V1 

B2=E1 

REM RESULT-PRINT LOOP 

FOR I = 1 TO N 

REM IS THIS THE FIRST PASS 


IF I = 1 THEN 01650 

REM CALCULATE G2 FOR THIS FASS 
G2=4kV1/(B1ixG1) 
V1I=SIN((C2KXI~-1) NIL) 

B1=SINCIXN6) 

B1=HixB1ity 

REM IS THIS AN ODD OR EVEN FASS 
IF INTC(I+.01)/2)K2=I THEN 01750 
REM ODD FASS ~- DO SHUNT 
M1=G2/(R1kWO) 


PRINT Is"CAFACITOR® » M1» *SHUNT" 
GOTO 01770 
REM EVEN FASS - DO SERIES 


M1=G2*K1/W0 


FRINT 
G1=G2 


NEXT I 


PRINT 
FRINT 
PRINT 
STOP 
END 


Ty" INDUCTOR’ »M1»"SERIES* 


a“ * 
wh 
"AHORA KKK END OF RUN OOKKOKKKK" 
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COLOR CODE FOR RESISTORS 


RA SRS OPP NRE TI OEE IEA IE SSE AY SS TIE I NE I PT NS 


This program converts color code to ohmic value, and the 
reverse. It assumes that all entries are integers. The ohmic color 
code is: 

COLOR VALUE 

Black ; 
Brown 
Red 
Orange 
Yellow 
Green 
Blue 
Violet 
Gray 
White 


© 


oon nw -& WN Fe 


TOLERANCE 
SIGNIFICANT DIGITS \ 


MULTIPLIER 


Color Code For Resistors 
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EXAMPLE 

RUN 

DO YOU WISH TO CONVERT TO OHMIC VALUE 
OR TO COLOR CODE 

ENTER 1 FOR OHMIC VALUE 

e FOR COLOR CODE 

? J 

ENTER COLOR CODE. SEPARATE EACH COLOR 
WITH A CONMA. 

IF THERE IS NO TOLERANCE BAND, 

ENTER ‘NONE* 

? BROWN. BLACK. BROWN, GOLD 

10 S% TOLERANCE 

RUN COMPLETE 

RUN 

DO YOU WISH TO CONVERT TO OHMIC VALUE 
OR TO COLOR CODE 

ENTER 1 FOR OHMIC VALUE 

2 FOR COLOR CODE. 

re 

ENTER DESIRED VALUE 

? 10 

RESISTOR COLOR CODE FOR 10 

BROWN BLACK BROWN, 20% TOLERANCE 

RUN COMPLETE 
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aay VES 240) 3 


CALCULATE E$, F$ & J 
| 

_|ror LOOP 
fi 


cy 


FOR LOOP 


J$ = K$ 


FOR LOOP 


A 


Color Code For Resistors 
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Color Code For Resistors 


OUTPUT 
COLOR CODE 


INPUT 
A$, BS, C$, DS 


GOSUB 550 
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© 


A+B 


<Siven> YES _| OUTPUT VALUE 
<Eo1d> OUTPUT VALUE 
<Roné> OUTPUT VALUE 


NO 


OUTPUT IMPROPER 
MESSAGE 
Gro" CONVERT COLOR 


TO 
SUBROUTINE 550 VALUE 
COLOR CODE FOR 
RESISTORS 


(STOP) 


PROGRAM 


00010 


00020 
00030 
00040 
00080 


O00L0 
00070 
oo080 
00050 
00100 
00110 
001c¢0 
C0130 
00140 
00150 
00160 
00170 
00180 
001590 
00200 
00210 
COecd 
00230 
o0e40 
00250 


OO0ecbO 
00270 


00c80 


REM THIS PROGRAM CONVERTERS 
RESISTOR 

REM COLOR CODES INTO VALUES AND 
REM THE REVERSE 

REM KT 1978 

PRINT **DO YOU WISH TO CONVERT 
TO OHMIC VALUE'® 

PRINT ‘OR TO COLOR CODE'® 
PRINT "ENTER 1 FOR OHMIC VALUE'® 
PRINT **2 FOR COLOR CODE.°® 
INPUT C 

IF C = 1 THEN 003590 

PRINT 

PRINT "ENTER DESIRED VALUE" 
INPUT V 

V = INT{ABS{V}} 

VS = STRF{V} 

L = LEN Vs 

Es = SUBSTR {V$41.1} 

FS = SUBSTR{V$12,1} 

ek =e 

RESTORE 

FOR IT = 1 TO VAL{E$} H 

READ Ks 

NEXT I 


RESTORE 


FOR I = 1 TO VAL{FS} + 1 
READ K$ 


NEXT I 
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oo290 Fe = Ks 

00300 RESTORE 

00310 FORT = 370 u +1 

00320 READ Ks 

00330 NEXT I 

00340 Js = Ke 

00350 PRINT 

O03b0 PRINT "'RESISTOR COLOR CODE FOR 
EL 

00370 PRINT ESs'" "'3FS5"" "T4us3t! 
"y's ' "20% TOLERANCE’? 

00380 STOP 

00390 PRINT 

OOOO PRINT '*ENTER COLOR CODE. 
SEPARATE EACH COLOR" 

00410 PRINT "WITH A COMMA'' 

OO420 PRINT ''IF THERE IS NO 
TOLERANCE BAND."' 

00430 PRINT "ENTER 'NONE'.'* 

OOV4O INPUT A$. BS. CH. Ds. 

OO4SO Xs = AS 

OO4LO GOSUB 550 

DO470 A = X 

00480 Xs = Bs 

00490 GosuB 550 

ooso0 B = x 

00510 Xs = Cs 

oo520 Gosus 550 

00530 C¢ = x 

00540 GOTO 870 
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00550 


00560 
00570 


00580 
00590 
OOL00 
00610 
00620 
00630 
OO0b40 
GOLSO 
OOLLO 
00b70 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 


00740 
00750 


00800 
00810 
008e0 
00830 
00840 


IF X= ° 


IF X$ = 
IF X$ = 
IF X$ = 
IF X$ = 
IF X$ = 
IF X$ = 
IF X$ = 
IF X$ = 
IF X$ = 


"BLACK" THEN 670 


*'BROWN'' THEN &90 
""RED'* THEN 710 


*"ORANGE'' THEN 730 
""YELLOW'' THEN 750 
*"GREEN'' THEN 770 
""BLUE'" THEN ?90 
"'VIOLET'* THEN 810 
"*GRAY'* THEN 830 
""WHITE'’ THEN &S0 


PRINT ""IMPROPER ENTRY'' 


STOP 
X =O 
GOTO &bD 
ee} 
GOTO &bO 
X= 2 
GOTO &bD 
X = 3 
GOTO &b0 
X= y 
GOTO AbD 
X= 5 


GOTO &b0 
X =b6b 


GOTO &b0 
X =? 
GOTO &&0 
X= 8 
GOTO &60 
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00850 xXx=f4 
OO&b0 RETURN 
00870 Js = STRSLA} 
OO8sQ Ks = STRS{B} 
00890 Js = Jf + KS 
oo700 J 


VAL {JS} 
00910 J = J¥*l0 C 


00920 IF DS = "*SILVER'" THEN 970 
00930 IF DS = ‘'GOLD'* THEN 590 
oo940 IF DS = ""NONE*' THEN 


OO950 PRINT ‘"IMPROPER ENTRY'® 

OOSbO STOP 

00970 PRINT J °'1L0% TOLERANCE'® 

OO4580 STOP 

00990 PRINT, J ''S54 TOLERANCE*® 

01000 STOP 

01010 PRINT J ''20% TOLERANCE'® 

01020 STOP 

01030 DATA BLACK, BROWN, RED, 
ORANGE. YELLOW 

01040 DATA GREEN, BLUE. VIOLET, 
GRAY. WHITE 

01050 END 
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CROSS CORRELATION FOR CURVES 


This program does a cross correlation between two given 
curves through use of the least-squares method. It returns the 
degree of similarity between two sets of data. Only one data item is 
required at a time (for each curve), as it is assumed that the 
independent variable is the same for each pair, representing the two 
dependent variables for the two curves. 


EXAMPLE 


ENTER 
t ¢ 


ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 


THE NUMBER OF DATA FOINTS TO BE ENTERED 


THE DATA AS FAIRS OF NUMBERS 


» 
X 
x 
X 
X 
X 
X 
X 


X 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


~<~“<~<<<~<<<«<< 


‘4 
? 
? 
Ls 
L¢ 
if 
? 
sy 


ud 


THE CORRELATION 
DATA FAIRS IS 


4319431 
COEFFICIENT FOR 9 


RUN 
78/03/09. 19.56.05, 
FROGRAM CROSSCR 


ENTER THE NUMBER OF DATA FOINTS TO BE ENTERED 


? 9 
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ENTER THE DATA AS FAIRS OF NUMBERS 


ENTER X AND Y ? 193 
ENTER X AND Y ? 225 
ENTER X AND Y ? 397 
ENTER X AND Y ? 729 
ENTER X AND Y ? 99134 


THE CORRELATION COEFFICIENT FOR 5S 
DATA FAIRS IS .772154 


PROGRAM CROSSCR 


ENTER THE NUMBER OF DATA FOINTS TO BE ENTERED 
Puy 


ENTER THE DATA AS FAIRS OF NUMBERS 


ENTER X ANDI Y ? 304970 
ENTER X AND Y 7? 60710 
ENTER X AND Y ? 30°81 
ENTER X AND Y ? 231970 
ENTER X ANI Y ? 78710 
ENTER X AND Y ? 643 
ENTER X AND Y ? 3094678 


THE CORRELATION COEFFICIENT FOR 7 
DATA FAIRS IS -.331803 
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|. GET NO. OF 
DATA PAIRS 


MIN 2 
PAIRS 
NO 


FOR|=1TON 
ENTER 
7) ees 
NUMBERS 
ACCUMULATE | =X 5x° 
VALUES Zy Xy* 


NEXT | 
PRINT CROSS 
CORRELATION 


Cross Correlation for Curves 


=Xy 
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PROGRAM 


00100 
00110 
00120 
00130 
00140 
00150 
001460 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
004790 
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REM COMPUTE THE COEFFICIENT OF CORRELATION 
REM FOR TWO STRINGS OF DATA OF EQUAL SIZE 
REM GET THE NUMBER OF DATA PAIRS TO BE ENTERED 
PRINT “ENTER THE NUMBER OF DATA POINTS TO BE ENTERED® 
INPUT N 

IF N>2 THEN 00180 

PRINT °THERE MUST BE AT LEAST 2 DATA PAIRS® 
GOTO 00130 

PRINT 

PRINT “ENTER THE DATA AS PAIRS OF NUMBERS® 
REM CLEAR THE COUNTERS 

Q1=0 

Q2=0 

Q3=0 

Q4=0 

Q5=0 

FOR I = 1 TON 

PRINT "ENTER X AND Y°S 

INPUT XsY 

REM SUM OF X 

Q1=Q1+X 

REM SUM OF Y°S 

Q2=Q2+Y 

REM SUM X TIMES Y 

Q3=Q3+XKY 

REM SUM OF X SQUARED 

Q4=Q44XKX 

REM SUM OF Y SQUARED 

QS=Q5+YXY 

NEXT I 

PRINT *THE CORRELATION COEFFICIENT FOR °#N 
PRINT "DATA PAIRS IS "5 

X=NXQ3-Q1*Q2 

Y=SQR( (NKQ4-Q1*Q1 > kK CNKQS-Q2KQ2) > 

Z=X/Y 

PRINT Z 

STOP 

END 


GREATEST COMMON DENOMINATOR 


This routine calculates the greatest common denominator be- 
tween any two numbers. This program uses the Euclidean algorithm 
to solve for the GCD, which is the largest number that will divide 
evenly into both given numbers. The Euclidean algorithm follows: 


Input x,y 

x = absolute x 

y = absolute y 

find x—-y (INTEGER OF x/y) 

is the above 0 

if yes, then y is the GCD 

if no continue 

Xx=y 

y = x-y (integer of x/y) 

return to find x—y(integer of x/y) 
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EXAMPLE 


KKKKKKKKKKGREATEST COMMON DENOMINATORKXXXKKKKKKE 


ENTER ANY TWO NUMBERS 

ENTER 0»0 TO STOP EXECUTION 
? S56 

THE GCD IS 1 


ENTER ANY TWO NUMBERS 

ENTER 00 TO STOP EXECUTION 
? 34:89 

THE GCD IS 1 


ENTER ANY TWO NUMBERS 

ENTER 0O*s0 TO STOP EXECUTION 
? 309250 

THE GCD IS 590 


ENTER ANY TWO NUMBERS 

ENTER 070 TO STOP EXECUTION 
? 129144 

THE GOD IS 12 


ENTER ANY TWO NUMBERS 

ENTER Or0 TO STOF EXECUTION 
? 5007259 

THE GCD IS 250 


ENTER ANY TWO NUMBERS 

ENTER Ov0 TO STOP EXECUTION 
? 6789234 

THE GOO IS 6 


ENTER ANY TWO NUMBERS 

ENTER 00 TO STOP EXECUTION 
? 456798973 

THE GCD IS 1 


ENTER ANY TWO NUMBERS 
ENTER 00 TO STOP EXECUTION 
? O»9 
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OUTPUT LABEL 


INPUT X,Y 


TEST FOR : 
0,0 


CALCULATE 
Z 


EUCLIDEAN 
ALGORITHM <u> 
NO 


NO OUTPUT GCD 


Greatest Common Denominator 
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PROGRAM 


00005 
00010 
00015 
00020 
00025 
00030 
00035 
00040 
00045 
00050 
00055 
00060 
00065 
00070 
00075 
00080 
00085 
00090 
00095 
00100 
00105 
00110 
00115 
00120 
00125 
00130 
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REM THIS PROGRAM COMPUTES USING THE 
REM EUCLIDEAN ALGORITHM THE GREATEST 
REM COMMON DENOMINATOR 

REM KT 3/3/78 

PRINT 

AAT Sdabd hdd ahd COMMON DENOMINATORSEKXAESEREE® 
PR 

PRINT‘ENTER ANY TWO NUMBERS® 
PRINT°ENTER 020 TO STOP EXECUTION® 
INPUT X+Y 

IF X<>0O THEN 00075 

IF Y<>0 THEN 00075 

STOP 

REM USE EUCLIDEAN ALGORITHM 
X=ABS(X) 

Y=ABS(Y) 

Z=X-YRINT(X/Y) 

IF Z=0 THEN 00115 

X=Y 

Y=Z 

GOTO 00085 

REM NOW WE OUTPUT WHAT WE FOUND 
PRINT‘ THE GCD IS ’sY 

PRINT 

GOTO 00035 

END 


HARMONIC CURVE FITTING 


SS LASSE CI MSE ETL Se SRE SIRT MIE ORES ST LS IIS TE ITE TT SE BSE SEE ENDS TRAE ANE SOE EID 


This program performs a Fourier analysis on a set of input 
points representing a set of cyclic curves. Since any curve may be 
derived from a group of sinusoidal curves, and since these sine-wave 
curves represent actual harmonics, this program is very useful for 
electronic designers working with frequency synthesizers, spec- 
trum analyzers, real-time harmonic generators and analyzers, and 
so forth. 

This program produces the harmonic magnitudes and phase 
angles required to generate the curve specified by the input. It 
further calculates the number of harmonics which will fit the input 
model. This is called harmonic curve fitting. 


EXAMPLE 


PROGRAM 
NUMBER OF DATA POINTS AND NUMBER OF HARMONICS 


INFUT 
? 875 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INFUT 
INPUT 
INFUT 


a 


A WSdnere o 


OnOUW SGI NK 


DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PROGRAM 


HARMONY 


POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 


DVNOUSWN = 
ee ee ee ee ee | 
, 
res 


COMP (K) 


-+142857 
1.28399 
°317119 
045825 
°45825 
0317119 


INPUT (CK) 


HARMONY 


PHASE (K) 


192.857 
~64.2857 
218.571 
~38.5714 
244.286 


BEST(K) (FOR 


i. 
~1. 
“i, 
-i. 
1. 
i. 
i. 
“i. 


DEVIATION 


1.14286 
°3571429 
«45825 

7 -O9B0SE-9 
«45825 
oS71429 


3 


INPUT NUMBER OF DATA POINTS AND NUMBER OF HARMONICS 
? 12999 
DO NOT EXCEED THE NUMBER OF POINTS ALLOWED(S0) 

INPUT NUMBER OF DATA POINTS AND NUMBER OF HARMONICS 


tf 187, 


A MINIMUM OF 3 POINTS/HARMONICS ARE REQUIRED 


INPUT NUMBER OF DATA POINTS AND NUMBER OF HARMONICS 


? 1297 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


K 


NO GUD INF O 


DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


POINT 
POINT 
POINT 
POINT 
POINT 
FOINT 
POINT 
POINT 
FOINT 
POINT 10 
POINT 11 
POINT 12 


o 


Pees en ees ee ee es es | 


VIVA SUN VO 


orth 


CON OUD IN 


COMP (K) 


Se 

3654947 
1.84966 
1.32319 
1.09935 
1.01028 
1.01028 
1.09935 


= 
o 


PHASE (K) 


~16.3636 
-32.7273 
-49.0909 
-65.4545 
-81.8182 

261.818 

245.455 


DEVIATION 


3.60723E-8 
1 
2 


HARMONICS 


SCONO UVdN = 


BEST(K) (FOR S 


-2.06057E-13 


CU) 
-8.37364E-8 


K INPUT (K) 
Qo 
10 * 10. 
9 9. 
8 8. 
7 7s 
é 6. 
be) Se 
4 4. 
3 3. 
10 2 2e 
11 1 1 
12 0 
PROGRAM HARMONY 


INPUT NUMBER OF DATA POINTS AND NUMBER OF HARMONICS 


? 993 

INPUT DATA POINT 
INPUT DATA POINT 
INPUT DATA POINT 
INPUT DATA POINT 
INPUT DATA POINT 
INPUT DATA POINT 
INPUT DATA POINT 
INPUT DATA POINT 
INPUT DATA POINT 


SANITY 
CHECK 


Gina; DATA 


act) 0 
270 
370 
470 
[ae aa | 
671 
la op 
8? 1 
970 


COUNTS 


CALCULATE 
AND 
PRINT 
SPECTRUM 


CALCULATE 
AND 


PRINT OPTIMUM 


CURVE 


Harmonic Curve Fitting 


HARMONIC 
AMPLITUDE, PHASE 
AND DEVIATION 


ORIGINAL INPUT 
AND FITTED 
SPECTRUM 


HARMONICS) 
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K COMP (K) PHASE (K) DEVIATION 
0 he) oe 9 ala 3S 

1 °653281 202.5 025 

2 1.246918E-9 ~45.0001 025 

3 «270598 247.5 3.28183E-9 
K INPUT (K) BEST(K) (FOR 3 HARMONICS) 
1 0 -3.28183E-9 

2 o 2+32062E-9 

3 0 -1-26916E-9 

4a Qo -1.79489E-9 

5S 1 1. 

6 1 1. 

7 i 1. 

8 1 1. 

9 Q 3.28185E-9 

PROGRAM 

00100 BIM V1(50) 2V2(50) »V3(S50) »V4(50) 2 V5(50) 

00110 P1=3,.14159265 

00120 PRINT "INPUT NUMBER OF DATA POINTS AND NUMBER OF HARMONICS* 
00130 INPUT WirHi 

00140 IF W1<51 AND H1<Si THEN 00170 

00150 PRINT "DO NOT EXCEED THE NUMBER OF POINTS ALLOWED(50)* 
00160 GOTO 00120 

00170 IF Wi>2 AND Hi>2 THEN 00200 

00180 PRINT “A MINIMUM OF 3 FOINTS/HARMONICS ARE REQUIRED" 
00190 GOTO 00120 

00200 FOR I1i=1 TO Wi 

00210 PRINT "INPUT BATA POINT °5118 

00220 INFUT Vi(I1) 

00230 NEXT I1 

00240 Wi=W1-1 

00250 GOSUB 00470 

00260 Wi=W1itl 

00270 PRINT 

00280 PRINT ° K*»*COMPC(K)"» "FHASE(K) °» “DEVIATION® 
00290 PRINT 

00300 PRINT * O"sWSr° ----°»W8 

00310 FOR K=i TO H1 

00320 PRINT KeV4 CK) sV3CK)K1ISO/P1sVS(K) 

00330 NEXT K 

00340 PRINT 

00350 PRINT ° K*e* INPUT(K) "se *BEST(K) (FOR “sW2s"HARMONICS)® 
00360 PRINT 

00370 Y=-Wé 

00380 FOR Ii=i TO Wi 

00390 Y=Y+W6 

00400 V2(11)=W5 

00410 FOR K=1 TO W2 

00420 V2CI1LI=V2ACIL)FV4 (KR) KSINCKKYFEUS (CR) D 

00430 NEXT K 

00440 PRINT I19V¥1¢11)9V2¢11) 

00450 NEXT Ii 

00460 STOP 

00470 W6=2kP1/W1 

00480 IF Hi>O THEN 00500 

00490 Hi=INT(W1/2)4+1 

00500 WS=0 

00510 FOR I1=1 TG Wi 

00520 WS=WStV1 (Tid /Wi 

00530 NEXT Ti 

00540 WS=0 

00550 FOR 1i=1 TO Wi 

00560 IF ABS(V1(11)-W5)<=W8 THEN 00580 

00570 W8=ABS(V1(11)-W5S> 

00580 NEXT I1 

00590 FOR K=1 TO H1 
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00600 W7=0 

00610 W4=0 

00620 Y=-Wé 

00630 FOR Ii=1 TO Wi 
00640 Y=Y¥+W6 


00650 W7=W74C1/P 1) RVLICILKSINCKKY) KWS 
00660 W4=W44(1/P1)KV1(11)XCOS( KAY) KWH 
00670 NEXT Ii 

00680 IF K<>Wi/2 THEN 00710 

00690 W7=W7/2,. 

00700 W4=W4/2. 

00710 V4(K)=SQR(W7°24+W4"%2) 

00720 W3=W4/W7 

00730 IF W7<>0 THEN 00760 

00740 IF W4>0 THEN 00760 

00750 W3=-W3 

00760 V3(K)=ATNCWS) 

00770 IF W7>=0 THEN 00790 

00780 V3(K)=V3(K)4+P1 

00790 Y=-Wé 

00800 V5S(K)=0 

00810 FOR I1=1 TO Wi 

0820 Y=Y+W6 

00830 IF K<>1 THEN 00850 

00840 V2(T1)=W5 

00850 V2CTID=V2CT1L) 404 °K) RSINCKRY4V3(K)) 
00860 IF ABS(V1(11)-V2(11))<=V5(K) THEN 00880 
00870 VS(K)=ABS(V1(11)-V2¢(11)) 

00880 NEXT Ii 

00890 IF K<>1 THEN 00920 

00900 M1=V5(1) 

00910 W2=1 

00920 IF VS(K)>=M1 THEN 00950 

00930 M1=VS(K) 

00940 W2=K 

00950 NEXT K 

00960 RETURN 

00970 END 


HEX/DECIMAL CONVERSIONS 


The hex program allows the user to convert from hexadecimal 
to decimal (base 16 to base 10) and from decimal to hex. To signify 
that a number is hex, type an H before the hexadecimal number (see 
the test run). 


EXAMPLE 

THIS FROGRAM CONVERTS HEXADECIMAL NUMBERS 
TO DECIMAL ANT ALSO TOES THE REVERSE 

IF A HEX NUMBER IS ENTERED FRECEED IT WITH 
A H 


ENTER A NUMBER? 32 
NECTMAL 32 IS 0020 HEXADECIMAL 


ENTER A NUMBER? H2345 
HEX H2345 15 9029 DECIMAL 


ENTER A NUMBER? 9029 
DECIMAL 9029 IS 2345 HEXADECIMAL 


ENTER A NUMBER? H1943 
HEX H1I?43 1S 6467 [DECIMAL 


ENTER A NUMBER? HFFFE 
HEX HErEE 15.5 65534 DECIMAL 


88 


ENTER A NUMBER? 6789 
DECIMAL 6789 IS 1A85 HEXALECIMAL 


ENTER A NUMBER? 1949 
NECIMAL 1949 IS 0790) HEXADECIMAL 


ENTER A NUMBER? 34 
QVEGIMAL 34 IS 0022 HEXADECIMAL 


ENTER A NUMBER? H6S540 
HEX H6S540 IS 25932 TECIMAL 


ENTER A NUMBER? ENT 
RUN COMPLETE. 


READ DATA 


INPUT NUMBER 


PRECEDED 
BY 
H 
CONVERT TO 
HEX 


Hex/Decimal Conversions 


CONVERT TO 
DECIMAL 
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PROGRAN 

00010 REM THIS PROGRAM CONVERTS HEA TO DECIMAL 
00020 Rem AT AFRIL 1978 

00030 PRINT 

90040 PRINI"TRIS PROGRAM CONVERTS HEAANECIMAL NUMBERS TO" 
00050 PRINT"DECIMAL AND ALSO DOES THE REVERSE" 
00060 FPRKINI"I& A HEA NUMBER ITS ENTERED PRECEED IT wWITk A HM 
00070 PRINI 

00080 DATA 4096425621]60el 

000S0 Me="U123456759ABCDEF" 

00100 RESTURE 

00110 PRINT 

00120 PRININENTER A NUMBERS 

00130 INPLI NS 

00140 IF SuUBSTRINSsleld =H THEN 00310 
00150 JF NSE"END! TREN 00650 

00160 NSVAL (NS) 

00170 XSxwtie 

00180 JF4 

00190 REAC P 

00200 FUR Is] TO 16 

00210 TF Nel ek<n THEN 00250 

0N220 NEAT J 

002230 PRINI"YCU GOOFEDe we FOUNC AN INPUT ERROR" 
00240 GOTC 00100 

00250 ASSADSSLRASTR(IMGS eT a1) 

00260 N=Ne-(leo]) aP 

00270 Jsdel 

00780 Ir Yy>0 THEN 001909 

00290 PRIATHDECIMAL "SNS3" 1S "SASS REXADECIMAL" 
009300 GOTO 00100 

00310 REM HEX 

00320 Jee 

00330 LELEn(Nd) 

00340 TF L<2 THEN 00230 

00350 IF L>S THEN 00239 

00360 FOR I21l To 4 

00370 2(1)=0 

00380 NEXT I 

00390 FOR |s6heL TO 4 

00400 Qt=sSuBSTRINSeJel) 

00410 {F Cas"A" THEN 00490 

00420 IF Gts"R" THEN 005) 0 

00430 IF Cos"'C" THEN 0053u 

00440 IF Gee") THEN 00550 

00450 IF Gae"E" THEN 00570 

00460 IF Goat" THEN 00590 

00470 Z(T)sVAL (Q%) 

00680 GUTO 0000 

004690 Z(]T)slo 

00500 GOTO 00600 

00510 2(])2#)11 

00520 GOTO 00400 

00530 Z(I)zle 

00540 GOTO 00600 

00550 Z(I)=l2 

00560 GUTO 00600 

00570 Ztl)=14 

00580 GUTO 00600 

00590 2(I) #15 

00600 JzJe] 

00610 NEXT I 

00620 02409682 (1) 25642 (2) 6169213) 0214) 
00630 PRINI"HEA "snoe" IS "803" OECIMAL" 
00640 GOTO 00100 

00680 END 
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LISSAJOUS SIMULATION 


This program simulates an oscilloscope representation of Lissa- 
jous patterns. 


ENTER PARAMETERS 


PLOTTING 
ROUTINE 
WITH SCALING 


Lissajous Simulation 
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PHEREHREE EEE HEHE HEHEHE HEHEHE H+ 


wR ISTE GOR, Fhe Lah b= J 


tthe +++ + 

+ + +++ + 

+ + ++ + 

++ ++ ++ + 

++ ++ ++ + 

++ ++ ++ + 

++ ++ ++ + 

++ ++ ++ + 

+t ++ ++ + 

+ + ++ + + 

+ + ++ ++ + 

++ + ++ ++ + 

++ $4 ++ ++ + 

+t tt ++ ++ + 

++ ++ ++ ++ + 

+t ++ ++ ++ + 

++ ++ + ++ 

+ ++ + ++ 

+ +t + ++ 

++ + + ++ 

++ + + ++ 

++ $+ + ++ 

++ t+ ++ ++ 

++ ++ ++ + + 

++ ++ ++ + + 

+ ++ ++ + + 

++ ++ ++ + + 

++ ++ ++ + +4 

++ ++ + + + + 
++ +4 + + + + 
+t ++ + + + + 
++ ++ ++ + +44 
++ +t ++ + +++ 
++ + +t + +++ 
+ ++ ++ ++ +++ 
++ ++ ++ ++ ttt 
++ ++ ++ ++ +++ 
++ ++ ++ ++ tt+ 
++ ++ + ++ ++ 
++ ++ + ++ ++ 
++ + + + ++ 


06 4S33N9S9T NI LIIHS 3SVHdS YSLN3 
9T4T & SAIINANOSYS OML SHL YSLNS 
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4 


+ 


+ 


Dadian 


Bal Bowe Ned FN Bee Fee es 


at 


P Peer ee NTT 


See FV OF Se 


++ 
++ 


+ 


ine 


++ 


oe 


+4 


+ 


+t 


++ 


++ 


+ 
t 


+++ 


++ 
++ 


++ 
++ 


++ 


++ 
++ 


++ 
++ 


++ 
++ 


++ 
++ 


Sa 


+4 
t+ 


+ + 


++ 
++ 


++ 


++ 
++ 


++ 


+ ++ + 


+4 


++ 
Sino 


t+ 


++ 


+--+ 
+ 


+ 


++ 
+t 
++ 


++ 


++ 


2-332 UNTS,. 


+ 


+++ + 
+++ + 
+++ + 


+4 
+++ + 


RUN COMPLETE. 


SRU 


PROGRAM 


00010 
00.020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
90200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 


REM LISSAYJOUS PATTERN GENERATOR 
REM KT APRIL 1978 

OIM (120) 

PRINT 

PRINT"ENTER THE TWO FREQUENCIES''$ 
INPUT AcB 

PRINT'ENTER PHASE SHIFT IN NEGREES"$ 
INPUT P 

T20 

MARGIN 133 

REM MAIN PROGRAM 

GOTO 00400 

FOR Yae20 TO 20 

Fae¥/20. 

Hal 

K20 

KzKe] 

FOR xs0 TO } 

P1l23.14159 

NB (XS (Pl eseF ) oF o24P) 4K) OAsSHO(57.296%P) 
FOR Ca@.5 TO eS 

FOR Js0 TO T#A/B 
R2INT(SIN(N*J#C) #160/34200/3) 
M(R)s] 

IF R<K THEN 00270 

WaR 

NEXT J 

NEXT C 

NEXT X 

IF K#A/B>INT(K#A/B) THEN 00170 
FOR Xs} TO # 

IF M(X)e] THEN 00350 

PRINT Le 

GOTO 00370 

PRINT Hots 

mM(X) 20 

NEXT X 

PRINT 

NEXT Y 

PRINT 

PRINT 

IF Yad THEN 00130 

END 


MOVING AVERAGE 


ELT TTL II LL LT ODE SEGRE TITTLE LES SITES TE ELE I CE DEINE LEE LE A GS RE RIOT Se 


This program generates 2 moving average up to 150 points 
The averaging bucket size may also be up to 150 points. 


NPUT SIZE & COUNT: 


INPUT DATA 
FOR 
LOOP 
CAL AVERAGE 


PRINT RESULT 
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EXAMPLE 


ENTER MOVING AVERAGH 
ele 


ENTER THE OBSERVATION Udieny 


Beih 


OBSERVATION COUNT Must Be BE TWEE 2 ANT 150 
ENTER THE OHSERVA FON 


eo 


ENTER THE DATA FPUINTS 


#)23 

? 44 

? 88 

? 1768 

7 352 

? 704 

? 1408 

? 2916 

? 5632 

? 112464 

? 22528 

nie a eat 

? 5632 

? 2816 

? 1408 

? 704 

thei bail 

AFG 

? $8 

? 44 

Cl 

es be 

fa da Pe 

Pe ee Ps 

thats 

SLOT SINGLE VALUE 
1 wat 
2 44 
3 88 

4 1764 
5 352 
b 704 
74 1408 
g 2816 
9 5632 
10 11264 
1% 22528 
t2 11264 
13 5432 
14 2816 
1S 1408 
16 704 
17 352 
18 L764 
1? BS 
20 44 
a4 22 
em. 11 
23 ees 
24 7.5 
25 pe 


ACCUMET 


Q 

QO 

0 
2794 
388 
deb b7e 
Rese 
44704 
JuaLls 
60544 
61952 
60544 
JoIOLS 
44704 
22558 
111.76 
3588 
2794 
LS 7 
69345 
349.25 
17s Zo 
0 

0) 


f) 


VALUE 


MOVING AVERAGE 


0) 

6) 

0 

399.143 
798.286 
1596.57 
3193.14 
6384.29 
79AS 14 
8649.14 
8850.29 
8649.14 
7945-14 
6386.29? 
3193.14 
LaP Gsm 
798.286 
599.143 
LOD. Ad 
99.7857 
49,8929 
foes 
0) 

10) 

Q 


00100 
00110 
00120 
00130 
00146 
00150 
00160 
00170 


00180 
00190 


00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
90400 
00410 
00420 
00430 
00440 
00450 
00460 
90470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 


REM CALCULATE ANY MOVING AVERAGE 
REM AND TOTAL GF Tu Ltd 

REM THE SIZE OF THE MUVING AVERAGE 
Rem SLOT 15 SET FikS°(S) 

REM COUNT OF INFUT LATA FULNTS 

mem 15 GIVEN NEXT 

DIM VitiSOd sV2CiSO V4. 150) 

PRINT "ENTER MOVING AVERAGE SLUT SIZE * 
INFUT S 

S=INTC(S) 

IF $7150 OR S<¥2 THEN 00220 

GOTO 00240 ; 

PRINT "SLOT SiZE MUST GE BETWEEN 2 ANE ifw' 
GOTO 00170 

FRINT "ENTER THE OKSERVATION COUNT * 
INFUT N 

N=INTCN) 

IF Ne? AND N-=150 THEN 004500 

FRINT "ORSERVATION COUNT MUST BE BETWEEN 2 AND iso 
GOTO 00240 

FRINT 

FRINT "ENTER THE DATA FOINTS* 

FRINT 

FOR IT1=1 TO N 

INPUT V3¢(1T1i> 

NEXT Ii 

Q2=INI(.SkS+1) 

Q1=Q2-S+N 

W4=06 

FOR ITi=Q2 10 Qi 

W4=W4+1 

I3=W4+tS~-1 

FOR T2=W4 TO [3 
V2CT1Iy=V2(07T1)4V3 C12) 

NEAT TS 

NEAT 11 

FOR Ii=Q2 70 Q) 

VECreeeVeCt 1S 

NEXT Ii 

FRINT 


PRINT "SLOT": "SINGLE VALUES ys *ACLUMEL VALUE*» "MOVING AVERAGE" 


FRINT 

FOR ITi=1 TON 

PRINT TisV3CTL sVSCT1 VIC £1) 
NEAT 11 

END 
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MEAN, STANDARD DEVIATION AND 
VARIANCE OF GROUPED OR UNGROUPED DATA 


This program computes the arithmetic mean, the standard 
deviation, and the variance of grouped or ungrouped data. It also 
allows the user to input the entire population, or only a sample of the 


population. 
Grant) 


=> YES 


NO 


INPUT E FOR LOOP 


DATA ITEM & 


FREQ. 


CALCULATE 


1,Q OUTPUT F* A 
INPUT can LOOP 


DATA ITEM 
NEXT 


CALCULATE 
1,Q 


A 


Mean, Standard Deviation and Variance of Grouped or Ungrouped Data 
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EXAMPLE 
KKXARITHMETIC MEAN-STANDARD DEVIATION-VARIANCEKK 


DATA IS POPULATION (0) OR A SAMPLE (1) 
? 0 

DATA IS UNGROUPED (1) OR GROUPED (0) 
70 


ENTER THE NUMBER OF OBSERVATIONS 


75 

DATA ITEMs FREQ 7? 199 
DATA ITEMs FREQ ? 498 
DATA ITEMs FREQ 7? Ss7 
DATA ITEM» FREQ ? 498 
DATA ITEMs FREQ 7? 399 


MEAN 2 SD VARIANCE 
3229268 1.34585 1.86556 


TYPE 1 TO CONTINUE? O TO STOP 
sae | 


DATA IS FOPULATION (0) OR A SAMPLE (1) 
ucle | 


DATA IS UNGROUPED (1) OR GROUPED (0) 
? 0 


ENTER THE NUMBER OF OBSERVATIONS 


73 

DATA ITEMs FREQ ? 199 
DATA ITEMs FREQ ? 498 
DATA ITEMs FREQ ? Sv? 
DATA ITEMs FREQ ? 498 
? 


DATA ITEM FREQ ? 399 
MEAN Sit VARIANCE 
3+29268 1.38282 1.9122 


TYPE 1 TO CONTINUE? O TO STOP 
qos 


DATA IS POPULATION (0) OR A SAMPLE (1) 
? 0 


DATA IS UNGROUPED (1) OR GROUPED (0) 
5 ane | 
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ENTER THE NUMBER OF OBSERVATIONS 


75 

TATA 
RATA 
LATA 
DATA 


DATA 


MEAN 
344 


TYPE 
Tene 


DATA 
eg! 


LATA 
Agog 


ITEM 7 1 
ITEM 7? 4 
LIES 
ITEM 7? 4 
ITEM ? 3 
SD VARIANCE 
1.35647 1.84 
1 TO CONTINUEs O TO STOP 


IS POFULATION (0) OR A SAMPLE (1) 


IS UNGROUPED (1) OR GROUPED (0) 


ENTER THE NUMBER OF OBSERVATIONS 


gS one 

LATA 
TATA 
DATA 
DATA 
LATA 


MEAN 
3.4 


TYEE 
7? 0 


100 


PTEMat a 
ITEM 7? 4 
ITEM 7? 3S 
ITEM ? 4 
ITEM ? 3 
SD VARTANCE 
1.51658 23 
1 TO CONTINUE? O TO STOP 


PROGRAM 


LIST 


78/03/12. 13.12.27. 
FROGRAM MSDV 


00005 
00010 
00015 
00020 
00025 
00030 
00035 
00040 
00045 
00050 
00055 
00060 
00065 
00070 
00075 
00080 
00085 
00090 
O0095 
00100 
00105 
00110 
00115 
00120 
00125 
00130 
00135 
00140 
00145 
00150 
00155 
00160 
00165 
00170 
00175 
00180 
00185 
00190 
00195 
00200 
00205 
00210 
00215 
00220 
00225 
00230 
00235 


REM THIS PROGRAM COMPUTES THE MEAN» THE VARIANCE 
REM AND THE STANDARD DEVIATION FOR 

REM GROUPED AND UNGROUPED DATA. IT ALSO ALLOWS DATA 
REM TO BE EITHER THE FOPULATION OR A SAMPLE 
REM KT 12/3/78 

FRINT 

PRINT" XKXARITHMETIC MEAN-STANDARD DEVIATION-VARIANCEXK" 
FRINT 

FRINT*DATA IS POPULATION (0) OR A SAMPLE (1)° 
INPUT B 

PRINT 

FRINT*DATA IS UNGROUPED (1) OR GROUPED (0)* 
INPUT D 

PRINT 

PRINT*ENTER THE NUMBER OF OBSERVATIONS® 

PRINT 

INPUT A 

T=0 

N=0 

M=0 

IF D=1 THEN 00160 

FOR J=1 TO A 

FRINT“DATA ITEM» FREQ‘? 

INFUT CoD 

T=I+D*C 

M=M+D 

N=NtDaC7™2 

NEXT J 

T=I/M 

Q=(N-MKIT2)/(M-B) 

GOTO 90200 

FOR J=1 TO A 

PRINT*DATA ITEM®s 

INPUT K 

M=M+K 

N=N+K72 

NEXT J 

I=M/A 

Q=(N-AKI72)/(A-B) 

PRINT 


PRINT *MEAN*» "SD* » "VARIANCE ®* 


PRINT IsSQR(Q)»Q 

PRINT 

PRINT* TYPE 1 TO CONTINUE? O TO STOP" 
INFUT C 

IF C=1 THEN 00040 

END 
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OP AMP DESIGN 


This routine designs an operational amplifier circuit using as 
information the minimum desired frequency in hertz, the desired 
close-loop gain and response with actual closed-loop gain (taking into 
account closed-loop errors), loop gain, error, true output impe- 
dance, transient response in seconds, the offset output voltage, 
linearity (THD), and the two resistors required. 

The circuit uses the popular 301A integrated circuit. The pro- 
gram supplies a standard EIA value for R2 and the required resis- 
tance for R1. For best results, use a trimming resistor to achieve as 
close as possible a value for R1, as this bias resistor is quite critical. 


R2 


R1 


Vo 
VIN 


30 pF 
FREQUENCY COMPENSATING 
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EXAMPLE 
PROGRAM OPAMP 


HAKKKKKKKKOPERATIONAL AMPLIFIER OP TIMIZATIONKKKXKKKKKK 


USING THE 
301A 


ENTER DESIRED MINIMUM FREQUENCY RESFONSE IN HZ 
? 4567 

ENTER DESIRED CLOSED LOOP GAIN 

? 2345 

REDUCE EITHER FREQUENCY RESPONSE OR GAIN 

SO THAT THE PRODUCT OF THE TWO 

WILL BE LESS THAN OR EQUAL TO 1E04 

ENTER DESIRED MINIMUM FREQUENCY RESFONSE IN HZ 
? 345 


ENTER DESIRED CLOSED LOOP GAIN 
? 1000 


ACTUAL CLOSED LOOP GAIN IS 743.494 
LOOP GAIN IS 2.89855 


ERROR CAUSED BY CLOSED LOOP 
CONFIGURATION IS 25.6506 % 


OUTFUT IMPEDANCE IS 38.4758 
TRANSIENT RESPONSE IS 1.01449E-3 
OFFSET OUTFUT VOLTAGE IS 2 
LINEARITY (THD) IS .256506 % 
FEEDBACK RESISTOR R2 IS 100000 


FEEDBACK/BIAS RESISTOR Ri IS 100 


KXXKKKXKKXKOPERATIONAL AMPLIFIER OPTIMIZATIONKKXKKKKKKKK 
USING THE 
301A 


ENTER DESIRED MINIMUM FREQUENCY RESPONSE IN HZ 
? 300 


ENTER DESIRED CLOSED LOOP GAIN 
? 23 


ACTUAL CLOSED LOOP GAIN IS 22.8424 
LOOP GAIN IS) 144.928 


ERROR CAUSED BY CLOSED LOOP 
CONFIGURATION IS .685272 % 
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OUTPUT IMPEDANCE IS 1.02791 
TRANSIENT RESPONSE IS) 1.16667E-3 
OFFSET OUTPUT VOLTAGE IS .046 
LINEARITY (THD) IS 6.85272E-3 4% 
FEEDBACK RESISTOR R2 IS 2200 


FEEDBACK/BIAS RESISTOR R1 IS 100 


TORKKKKKKKKOPERATIONAL AMPLIFIER OPTIMIZATIONKKXEKKEKKE 
USING THE 
301A 


ENTER DESIRED MINIMUM FREQUENCY RESPONSE IN HZ 
Toes 


ENTER DESIRED CLOSED LOOP GAIN 
? 1256 


ACTUAL CLOSED LOOP GAIN IS 1220.74 
LOOP GAIN IS 34.6164 


ERROR CAUSED BY CLOSED LOOP 
CONFIGURATION IS 2.80769 % 


OUTPUT IMPEDANCE IS 4.21154 
TRANSIENT RESPONSE IS 1.52174E-2 
OFFSET OUTPUT VOLTAGE IS 2-512 
LINEARITY (THD) IS 2.80769E-2 % 
FEEDBACK RESISTOR R2 IS 150000 
FEEDBACK/BIAS RESISTOR Ri IS 119 
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FREQ 
RESPONSE 
GAIN 


Op Amp Design 


ASSURE THAT 
TEST, AND BETRY» | pi patees 
TILL CORRECT “SANITY-CHECK” 
FIND STANDARD 
RESISTOR 
IN DATA TABLE 
eee ACTUAL GAIN 
ERROR DUE TO LOOP 


OUTPUT IMPEDANCE 
TRANSIENT RESPONSE 
OFFSET OUTPUT VOLTAGE 
DISTORTION 

FEEDBACK RESISTOR 
BIAS RESISTOR 


PRINT VALUES 


PROGRAM 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 


PRINT 

REM KEN TRACTON 

REM 11 MARCH 1978 

PRINT 

PRINT" &&&2axxeXXOPERATIONAL AMPLIFIER OPTIMIZATIONSER 
PRINT® USING THE ° 

PRINT® 301A" 

PRINT 

PRINT 

PRINT 

PRINT°ENTER DESIRED MINIMUM FREQUENCY RESPONSE IN HZ° 
INPUT A 

PRINT 

PRINT*ENTER DESIRED CLOSED LOOP GAIN®' 


INPUT B 


C=AXB 

IF C>1E06 THEN 00190 

GOTO 00230 

PRINT*REDUCE EITHER FREQUENCY RESPONSE OR GAIN® 
PRINT°SO THAT THE PRODUCT OF THE TwO* 
PRINT*WILL BE LESS THAN OR EQUAL TO 1£06* 

GOTO 00110 

IF B>20000 THEN 00250 

GOTO 00310 

PRINT*MAXIMUM GAIN AVAILABLE WITH GIVEN FREQUENCY IS °3 
IF 1E06/A >= 20000 THEN 00290 

PRINT 1E06/A 
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90280 GOTO 00110 

00290 PRINT*20000° 

00300 GOTO 00110 

00310 IF B<10 THEN 00330 

00320 GOTO 00360 

00330 PRINT*GAIN MUST BE GREATER THAN 10° 

00340 PRINT*IF LINEARITY AND STABILITY IS TO EXIST* 
00350 GOTO 00110 


00340 REM ESTIMATE R2 


=(100%B)-100 
80340 REM FIND EIA STANDARD VALUE FOR R2 


00390 READ C 

00400 IF R2 <= C THEN 00420 

00410 GOTO Q0390 

00420 R2=C 

00430 R1i=R2/(B-1) 

00440 REM FIND BETA 

00450 D=R1/(R1+R2) 

00460 REM FIND LOOP GAIN 

00470 E=(1E06/A) 4D 

00480 REM FIND TRUE SIGNAL GAIN 

00490 REM TAKING INTO ACCOUNT CLOSED LOOP ERRORS 
00500 B=((R1ItR2)/R1)BC1/(1401/E) DD 

00510 REM FIND PERCENTAGE ERROR 

00520 F=100/(Et1) 

00530 REM FIND OUTPUT IMPEDANCE 

00540 G=i50/(1+E) 

00550 REM FIND TRANSIENT RESPONSE 

00560 H=0.35/A 

00570 REM FIND rise a OUTPUT VOLTAGE DUE TO OFFSET INPUT VOLTAGE 
OOS60 I=2E-03%(1/D 

00590 REM FIND LINEARITY (THD) 

00600 J=0.01/(1+E) 

00610 REM CONVERT TO PERCENTAGE 

00620 J=Jk100 

00630 REM PRINT OUTPUT 

00640 PRINT 

00650 PRINTSACTUAL CLOSED LOOP GAIN IS °#B 
00660 PRINT 

00670 PRINT°*LOOP GAIN IS °sE 

00680 PRINT 

00690 PRINT"ERROR CAUSED BY CLOSED LOOP® 
00710 PRINT*CONFIGURATION IS °SF#°X® 

00720 PRINT 

00730 PRINT*OUTPUT IMPEDANCE IS °%G 

00740 PRINT 

750 PRINT* TRANSIENT RESPONSE IS °3H 

00760 PRINT 

00770 PRINT*OFFSET OUTPUT VOLTAGE IS "éI 
00780 PRINT 

00790 PRINT"LINEARITY (THD) IS "$J5°X° 

00800 PRINT 

00810 PRINT®FEEDBACK RESISTOR R2 IS °#R2 
00820 PRINT 

00830 PRINT*FEEDBACK/BIAS RESISTOR Ri IS “#INTC(R1) 
00840 DATA 1£03%1.2E0371.5E0391.8E0392.2E03 
00850 DATA 2.7E0393.3E0373.9E0374.7E0375.6E03 
00860 DATA 6.8£03*8.2E0371E0491.2E0491.5E04 
00870 DATA1.8E0472.2E0492.7E0493.3E04%3.9E04 
00880 DATA 4.7E0495.6E04756.8E0498.2E04r 1 E05 
00890 DATA 1.2E0571.5E0591.8E05r2.2E0592.7E05 
00900 DATA 3.3E05r3.9E052 4. 7E0575-6E0576.8E05 
00910 DATA 8.2E05r1E0671.2E0691.5E0671.8E05 
00920 DATA 2.2E06 

00930 END 
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POLYGON AREA 
ESE SE EE UD AST SO SHE TBE SN TS TE IS ST SP TIE TEE ESTES RSS eA EEN 


This program computes the area of any polygon with no more 
than 30 vertices. You must enter the x, y coordinates (Cartesian) for 
each vertex, V1... V30. There is no need to enter the last vertex, as it 
is the same as the first one. (In the diagram shown, the program will 
automatically connect V7 to Vi: to close the program.) 


Y 


V2 Polygon Area 


V1 V4 


X 
Area = (x1+x2)(yi—y2) +(x2 + x3) (y2—y3)...(Xn-+x1)(yn—y1) 
where 


n = number of vertices 
x,y = Cartesian coordinates 
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EXAMPLE 
Ft++++4+4+4+AREA OF A POLYGON++4+4+444+4+ 


ENTER THE NUMBER OF VERTICES (VERTICES <=30) 
ENTER O TO STOP 


7? 4 

COORDINATES 
VERTEX 1 ? Or0 
VERTEX 2 ? Ovl 
VERTEX 3 Tulyd 
VERTEX 4 ? 190 


AREA OF THE POLYGON IS 1 


ENTER THE NUMBER OF VERTICES (VERTICES <=30) 
ENTER 0 TO STOP 


? 5 

COORDINATES 
VERTEX 1 ? iv2 
VERTEX 2 W206 
VERTEX 3 ? 698 
VERTEX 4 Ter lil 
VERTEX 5 ? O»0 


AREA OF THE POLYGON IS 10 


ENTER THE NUMBER OF VERTICES (VERTICES <=30) 
ENTER O TO STOP 


108 


INPUT V 


So 
cS 


> FOR LOOP 
INPUT ROUTINE FOR 
NEXT VERTICES 


FOR LOOP 
CALCULATE AREA 
OUTPUT AREA 
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PROGRAM 


00005 
00010 
00015 
00020 
00025 
00030 
00035 
00040 
00045 
00050 
00055 
00060 
00065 
00070 
00075 
00080 


00085. 


50090 
00095 
00100 
00105 
00110 
00115 
00120 
00125 
00130 
00135 
00140 
00145 
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REM THIS FROGRAM COMPUTES THE AREA OF A POLYGON 
REM KT 8/3/78 

PRINT 

PRINT'+++++++++AREA OF A FOLYGON+++++4++++° 
PRINT 

DIM Q(31)rW(31) 

PRINTSENTER THE NUMBER OF VERTICES (VERTICES <=30)° 
FRINT‘ENTER 0 TO STOF® 

INFUT V 

IF Vi2>0 THEN 00060 

STOP 

PRINT 

PRINT "COORDINATES" 

PRINT 

FOR J=1 TO V 

PRINT'VERTEX "i539" %3 

INPUT Q(J) 9WCJ) 

NEXT J 

Q(V41)=Q(1) 

WCV+L=WC1) 

Z=0 

FOR J=1 TO V 

Z=Z4+ (QC S)FQC S41) RCW CID -WC SEL? D 

NEXT J 

PRINT 

FRINT‘AREA OF THE FOLYGON IS "#Z/2 

FRINT 

GOTO 00035 

END 


PRIME FACTOR 


This routine takes as its input any number and outputs the 
prime factor in power form. This program is unique in that it will 
accept both positive and negative numbers. 


Sy 
Gro 


Prime Factor 


OUTPUT SGN(A) 


| FOR LOOP 
. OUTPUT FACTOR 


RE-START 


COMPUTE PRIME 
FACTORS 
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EXAMPLE 
B+K+K+K+R4RPRIME FACTORS OF AN INTEGERS+E+44444+% 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER 0 TO STOP EXECUTION 
Takes 

1 

3 TO THE POWER OF 1 

41 TO THE POWER OF 1 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER 0 TO STOP EXECUTION 
? 5000 

i 

2 TO THE POWER OF 3 

S TO THE POWER OF 4 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER O TO STOP EXECUTION 
? 125488 


i 

2 TO THE POWER OF 3 

3 TO THE POWER OF 1 
5237 TO THE POWER OF 1 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER 0 TO STOP EXECUTION 
? 14444498 

1 

2 TO THE POWER OF 1 

59 TO THE POWER OF 1 


147 TO THE POWER OF 1 
733 TO THE POWER OF 1 


KTIME LIMITS 


K+K4K4+K+R4+KPRIME FACTORS OF AN INTEGERS+R444+24+%4% 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER O TO STOP EXECUTION 
? 2 

1 

2 TO THE POWER OF 1 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER O TO STOP EXECUTION 
? 356 

1 

2 TO THE POWER OF 3 

7 TO THE POWER OF 1 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER 0 TO STOP EXECUTION 
fie et 


1 
11 TO THE POWER OF 2 
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ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER O TO STOP EXECUTION 


? 101 


1 
101 


TO THE POWER OF 1 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER O TO STOP EXECUTION 
? 3000 


1 


2 TO THE POWER OF 3 
3 TO THE POWER OF 1 
5 TO THE POWER OF 3 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER O TO STOP EXECUTION 
? 49321 


1 


3 TO THE POWER OF 1 
15107 TO THE POWER OF 1 


ENTER ANY NEGATIVE OR POSITIVE NUMBER 
ENTER THE NUMBER O TO STOP EXECUTION 
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PROGRAM 


00005 
00010 
00015 
00020 
00025 
00030 
00035 
00040 
00045 
00050 
00055 
00060 
00065 
00070 
00075 
00080 
00085 
00090 
00095 
00100 
00105 
00110 
00115 
00120 
00125 
00130 
00135 
00140 
00145 
00150 
00155 
001460 
00145 


REM THIS PROGRAM FINDS THE PRIME 

REM FACTORS OF AN INTEGER 

REM KT 3/2/78 

PRINT 

PRINT°S++R+K+4+RPRIME FACTORS OF AN INTEGERS+&+%+44+44%° 

PRINT 

PRINT 

PRINT 

PRINT 

REM ACCEPT INPUT 

PRINT°ENTER ANY NEGATIVE OR POSITIVE NUMBER® 

oe eae THE NUMBER O TO STOP EXECUTION® 
NPUT A 

REM VERIFY THAT EXECUTION IS WANTED 

IF A<>0 THEN 00090 

STOP 

REM THE NUMBER 1 OR -1 IS ALWAYS A FACTOR 

PRINT SGN (A) 

A=ABS(A) 

REM COMPUTE FACTORS 

FOR J=2 TO A 

K=0 

IF A/J <> INT(A/J) THEN 00135 

A=A/ J 

K=K+1 

GOTO 00115 

IF K=O THEN 00145 

PRINT J#* TO THE POWER OF °$K 

NEXT J 

PRINT 

REM AROUND WE GO AGAIN 

GOTO 00055 

END 
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PRIME NUMBER 


This program computes the first n primes from 1 ton. The limit 
of the number of primes found is 500. To change this, increase the 
DIM statement in line 40. Remember that the bigger the DIM 
assignment the more memory required. 


OUTPUT HEADER 
INPUT N |: 


CHECK FOR 
RANGE OF N 


80-130 
150-290 


OUTPUT 
RESULTS 


300-340 


440 


PRINT PRIMES 


480 


Prime Number 
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EXAMPLE 


THIS FROGRAM COMPUTES ALL KNOWN PRIMES 

FROM 1 TON 

N = P 100 

ALL FRIMES HAVE NOW BEEN LOCATED 

THERE ARE 24 FRIMES UF TO AND INCLUDING 101 


PRIME PRIME 
1 1 
2 2 
2 3 
4 w 
a 7 
& 11 
Z 13 
3 7, 
Nyy 
10 23 
11 2? 
12 31 
| hg 37 
14 4l 
1S 4S 
14 47 
17 ws 
18 > 
19 61 
20 é7 
21 71 
22 73 
23 Pad 
24 83 
2 89 
“ 97 


WE ARE NOW FINISHED 
SRU 0.228 UNTS. 


RUN COMPLETE. 


115 


PROGRAM 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 


00480 
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REM a PRIME NUMBER GENERATOR 
REM KT APRIL 1978 


REM aLLOW UP 10 500 PRIMES TO BE FOUND 

NIM # (500) 

PRINT 

PRINT"TRIS PROGRAM COMPUTES ALL KNOWN PRIMES" 


PRINT"FROM 1 10 N* 
PRINTMN sig 

INPUT N 

TF N>] TREN 001590 

REM YOU GOOFEDeIT MESSAGE 
PRINT"OKAY WISFeGUYs ALL PRIMES ARE GREATER TRAN ZERO" 
GOTO 00080 

REM CHECK WHERE WE ARE 
P(l)s] 

L2} 

IF N<2 TREN 00390 

P(2)e2 

Ls2 

If N<3 THEN 00390 

P(3)s3 

L23 

IF N<5S TREN 00390 

P(4)s5 

Ls4 

125 

lz] ¢2 

IF J>N THEN 00399 

J33 

Xa}/rPJ) 

IF AsINT(X) THEN 00270 

IF A<P(Je]) THEN 003590 
JFJo4 

GOTO 00309 

L3L¢] 

REM ASSIGN THE PRIMES 
P(L)sI 

GUTO 00270 

PRININALL PRIMES HAVE NOW REEN LOCATED" 
PRINI'TRERE AKE "$938" PRIMES UP TO AND INCLUDING "3N 
PRIN] 

PRINI“PRIME #', "PRIME 
FOR je] TOL 

PRINT IeP (I) 

NEXT } 

PRINI 

PRIN 'wE ARE NOW FINISHED" 
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RESISTIVE Pil AND T NETWORKS 


ELE TG RETEST BELT LE NOSE BET DSI Bt TREE SD EEE RIT PIES NTR ROS TE enRENIE 


This program computes the Pi and T resistor networks using as 
information the desired loss in dB and the input and output impe- 
dances (resistances). 


Pi NETWORK 
R3 
IN R2 OUT 
T NETWORK 
R1 R2 
IN R3 OUT 


P| Network 
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EXAMPLE 
ENTER 
ENTER 
ENTER 
? 10 
ENTER 
? SO 
ENTER 
? 30 


1 FOR A PI NETWORK 

O FOR A T NETWORK ? 9 
DESIRED LOSS IN DECIBELS 
INFUT RESISTANCE IN OHMS 


THE DESIRED OUTPUT RESISTANCE 


T-ATTENUATOR RESULTS 


INFUT RESISTANCE JO 
OUTFUT RESISTANCE 30 
DESIRED LOSS(OB) 10 
DESIRED LOSS IN RATIO FORM 10 
MINIMUM LOSS IN DECIBELS ) 
MINIMUM LOSS IN RATIO FORM 1 

VALUE OF LEFT RESISTOR 259747 
VALUE OF CENTER RESISTOR 35.1364 
VALUE OF RIGHT RESISTOR 2549747 
nO YOU WISH TO TRY AGAIN? 

ENTER 1 TO TRY DIFFERENT VALUES 0 TO STOP 
ote: 

ENTER 1 FOR A PI NETWORK 

ENTER O FOR A T NETWORK Ff 1 

ENTER DESIRED LOSS IN DECIBELS 

Pak 

ENTER INFUT RESISTANCE IN OHMS 

? SO 

ENTER THE DESIRED OUTPUT RESISTANCE 

Fig ot 


FI ATTENUATOR RESULTS 


INFUT RESISTANCE 390 

OUTFUT RESISTANCE 30 
DESIRED LOSS(OR) 10 
DESIRED LOSS IN RATIO FORM 10 
MINIMUM LOSS IN DECIBELS te) 

MINIMUM LOSS IN RATIO FORM 1 

VALUE OF LEFT RESISTOR 94.2475 
VALUE OF CENTER RESISTOR 71.1512 
VALUE OF RIGHT RESISTOR 96-2475 
lO YOU WISH TO TRY AGAIN? 

ENTER 1 TO TRY DIFFERENT VALUES 0 TO STOP 
ane) : 
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PROGRAM RESATT 


ENTER 1 FOR A PI NETWORK 
ENTER O FOR A T NETWORK 7? 0 
ENTER DESIRED LOSS IN DECIBELS 
fae 
ENTER INPUT RESISTANCE IN OHMS 
? 75 | 
ENTER THE DESIRED OUTPUT RESISTANCE 
?P 100 
OUTPUT RESISTANCE EXCEEDS INPUT 
ENTER INPUT RESISTANCE IN OHMS 
Lp det 
THE VALUE JUST ENTERED IS INVALID 
RESISTANCES MUST BE FOSITIVE 
ENTER INFUT RESISTANCE IN OHMS 
Tt oe 
ENTER THE DESIRED OUTPUT RESISTANCE 
P 39 
DESIRED LOSS < MIN LOSS OF 5.71948 
CORRECT AND RE-ENTER VALUES 
ENTER DESIRED LOSS IN DECIBELS 
? 6 
ENTER INPUT RESISTANCE IN OHMS 
? 735 
ENTER THE DESIRED OUTFUT RESISTANCE 
? SO 


T-ATTENUATOR RESULTS 


INFUT RESISTANCE 73 
OUTPUT RESISTANCE 30 
DESIRED LOSS(OB) 6 
QNESTRED LOSS IN RATIO FORM 3+98107 
MINIMUM LOSS IN NECIBELS 2+71948 
MINIMUM LOSS IN RATIO FORM 3+73205 
VALUE OF LEFT RESISTOR 43.344 
VALUE OF CENTER RESISTOR 81.9734 
VALUE OF RIGHT RESISTOR 1.97153 


NO YOU WISH TO TRY AGAIN? 

ENTER 1 TO TRY DIFFERENT VALUES 0 TO STOP 
cn 

NO YOU WISH TO TRY AGAIN? 

ENTER 1 TO TRY DIFFERENT VALUES 0 TO STOP 
| 
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ENTER 


1 FOR A FI NETWORK 


ENTER 0 FOR A T NETWORK ? 9 

ENTER 1 FOR A FI NETWORK 

ENTER O FOR A T NETWORK 7 1 

ENTER DESIRED LOSS IN DECIBELS 

v6 

ENTER INFUT RESISTANCE IN OHMS 

rises 

ENTER THE DESIRED OUTFUT RESISTANCE 

? 30 

FI ATTENUATOR RESULTS 

INFUT RESISTANCE 73 
OQUTFUT RESISTANCE ah @) 
DNESTRED LOSS(OR) 6 
DESIRED LOSS IN RATIO FORM 398107 
MINIMUM LOSS IN DECIBELS 371948 
MINIMUM LOSS IN RATIO FORM 32735205 
VALUE OF LEFT RESISTOR 2386.2 
VALUE OF CENTER RESISTOR 43 +7465 
VALUE OF RIGHT RESISTOR 86.5171 


nO YOU WISH TO TRY AGAIN? 


ENTER 
? 0 
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1 TO TRY DIFFERENT VALUES O TO STOP 


SANITY 
CHECK 


INPUT DATA 
AND CHECK 


CALCULATE MIN 
LOSS POSSIBLE 


CALCULATE CALCULATE PRINT 
Bei ie PLIYPE R1, R2, R3 


ANOTHER 
TRY 


Resistive P] and T Networks 
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PROGRAM 

00100 REM THIS PROGRAM CALCULATES THE VALUES REQUIREDE 
00110 REM FOR EITHER A FI OR T ATTENUATOR 
00120 REM OR IMPEDANCE MATCHING NETWORK 
00130 REM THE IMPEDANCE OF THESE UNITS 
00140 REM IS PURELY RESISTIVE 

00150 PRINT “ENTER i FOR A FI NETWORK® 

00160 FRINT “ENTER O FOR A T NETWORK'S 

00170 INPUT O 

00180 IF O<>1 AND O <>0 THEN 90150 

00190 PRINT "ENTER DESIRED LOSS IN DECIBELS* 
00200 INFUT L 

00210 PRINT “ENTER INPUT RESISTANCE IN OHMS* 
00220 INFUT I 

00230 IF I>0 THEN 00260 

00240 GOSUB 007980 

00250 GOTO 00210 

00260 PRINT "ENTER THE DESIRED OUTPUT RESISTANCE® 
00270 INFUT O1 

00280 IF O1> 0 THEN 00310 

00290 GOSUB 00780 

00300 GOTO 00260 

00310 IF I «< O1 THEN 00330 

00320 GOTO 00350 

00330 FRINT “OUTPUT RESISTANCE EXCEEDS INFUT® 
00340 GOTO 00210 

00350 M1=20KLOG(SQR(I/01)+SQR(1/01-1))/LOG(10) 
00360 IF L>M1 THEN 00400 

00370 PRINT * DESIRED LOSS < MIN LOSS OF ‘#M1 
00380 PRINT "CORRECT AND RE-ENTER VALUES® 
00390 GOTO 00190 

00400 Q=107(L/10) 

00410 IF 0 = 1 THEN 00520 

00420 REM T- ATTENUATOR CALCULATIONS 

00430 REM CALCULATE CENTER RESISTANCE 

00440 R3=SQR(QKIKO1)/(Q-1)k2 

00450 REM CALCULATE RIGHT RESISTOR 

00460 R2=01%(Q41)/(Q-1)-R3 

00470 REM CALCULATE LEFT RESISTOR 

00480 R1=Ix(Qt1)/(Q-1)-R3 

00490 PRINT 

00500 PRINT *T-ATTENUATOR RESULTS® 

00510 GOTO 00630 

00520 REM FI ATTENUATOR CALCULATIONS 

00530 REM CALCULATE CENTRAL RESISTOR 

00540 R3=SQR(1*O1/Q)K(Q-1)/2 

00550 REM CALCULATE THE LEFT RESISTOR 

00560 R1=(1/1) k(Q41)/(Q-1)-C1/R3) 

00570 Ri=1/R1 

00580 REM CALCULATE THE RIGHT RESISTOR 
00590 R2=(1/01)*(Qt1)/(Q-1)-(1/7R3) 

00600 R2=1/R2 

00610 PRINT 

00620 FRINT "FI ATTENUATOR RESULTS® 

00630 FRINT “INPUT RESISTANCE’ I 

00640 FRINT “OUTFUT RESISTANCE’ O01 

00650 FRINT “DESIRED LOSS(DE) "sb 

00560 PRINT “DESIRED LOSS IN RATIO FORM*:Q 
00670 FRINT “MINIMUM LOSS IN DECIBELS" »M1 
00680 FRINT "MINIMUM LOSS IN RATIO FORM",»107(M1/10) 
00690 FRINT “VALUE OF LEFT RESISTOR®»R1 
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00700 FRINT “VALUE OF CENTER RESISTOR® sR3 

00710 PRINT “VALUE OF RIGHT RESISTOR* »R2 

00720 PRINT °DO YOU WISH TO TRY AGAIN?* 

00730 PRINT “ENTER 1 TO TRY DIFFERENT VALUES 0 TO STOP® 
00740 INPUT O 

00750 IF O=1 THEN 00150 

00760 IF O=0 THEN 00820 

00770 GOTO 90720 

00780 REM SUBROUTINE TO PRINT MESSAGE 

00790 PRINT ° THE VALUE JUST ENTERED IS INVALID® 
00800 FRINT ° RESISTANCES MUST BE POSITIVE® 
00810 RETURN 

00820 END 
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RESISTANCE IN PARALLEL AND SERIES 


This program will compute either parallel or series resistance 
for up to 100 resistors. 


PARALLEL RESISTANCE 
Rt = 1/(1/R1+ 1/R2 +...) 


SERIES RESISTANCE 
Br = hie ee 


Parallel & Series Resistance 
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RESISTANCE IN PARALLEL & SERIES 
RUN 

TYPE 1 FOR PARALLEL, 2 FOR SERIES 
fas 

HOW MANY RESISTORS 


fo = 
RESISTOR 1 = 10 
RESISTOR 2 = 10 


TOTAL PARALLEL RESISTANCE = S OHMS 
TYPE 1 FOR PARALLEL. 2 FOR SERIES 


fe 
HOW MANY RESISTORS 


73 
RESISTOR 1 = 15 


RESISTOR e = 10 
RESISTOR 3 = § 


TOTAL SERIES RESISTANCE = 30 OHMS 
RUN COMPLETE 


INPUT C Resistance in Parallel & Series 


sd INPUT T 
INPUT T 


FOR 
INPUT R(1) LOOP 
INPUT Ri(I) FOR LOOP 
par + vm |] FOR, 
Aes L0 


OUTPUT F 
| OUTPUT F 
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PROGRAM 

00010 REM THIS PROGRAM COMPUTES BOTH 

00020 REM SERIES AND PARALLEL 
RESISTANCES 

00030 REM KT 1976 

ooo4uo DIM R{100} 

OOOSO REM START 

OoobO PRINT 

00070 PRINT "'TYPE 2 FOR PARALLEL; ec 
FOR SERIES'' 

o00a80 INPUT C 


00090 IF C = 1 THEN ebD 
00100 PRINT 


00110 PRINT **HOW MANY RESISTORS*® 

O001e0 INPUT T 

00130 FOR IT=1T0T 

OOLYO PRINT ""RESISTOR''SIs'*=""5 

00150 INPUT R{I} 

00160 PRINT 

00170 NEXT I 

00180 F=0 

00190 FOR IT=1 TOT 

oo200 F = F + R{I} 

00210 NEXT I 

00220 PRINT 

00230 PRINT "'TOTAL SERIES RESISTANCE 
eUPSF Sa" Onis. ¢ 

00240 PRINT 

oO02eSO GOTO 70 

OO2b0 PRINT ''HOW MANY RESISTORS'’ 
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00270 
00280 
00¢e10 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 


00400 
00410 
oo42eo 


INPUT T 
FOR IT =1T0T 
PRINT ""RESISTOR "*3I3%tatts 


INPUT R{I} 
PRINT 

NEXT I 

F=Q 

FOR IT = 1°T0 T 


F =F + {1/R{I}} 

NEXT I 

F = 1/F 

PRINT 

PRINT **TOTAL PARALLEL 
RESISTANCE =""sFs ""OHMS?? 
PRINT 

GOTO 70 

END 
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RELIABILITY 


SRE TG  TSSLE ON EV E TE DITD SEL D E E A LAS I SEL OE L  E S 


This program computes the reliability of a system with compo- 
nents. Information required is the number of hours of operation of 
the system in question, the number of components comprising the 
system, and the wearout and failure factors. 


EXAMPLE 
KKKKKEKKRELIABILITY OF A SYSTEMKKXKKXK 


NUMBER OF HOURS OF OPERATION» O TO STOP 
Fur 


ENTER THE NUMBER OF COMPONENTS IN THE SYSTEM 
73 

COMPONENT # 1 

AVERAGE TIME TO WEAROQUT 
? 1000 

AVERAGE RATE OF FAILURE 
FORO? 

COMFONENT # 2 

AVERAGE TIME TO WEAROUT 
? 234 

AVERAGE RATE OF FAILURE 
? 9009 

COMFONENT # 3 

AVERAGE TIME TO WEAROUT 
? 1567 

AVERAGE RATE OF FAILURE 
? .008 
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RELIABILITY OF SYSTEM IS .257963 


NUMBER OF HOURS OF OPERATION? O TO STOP 
? 1000 


ENTER THE NUMBER OF COMPONENTS IN THE SYSTEM 
73 

COMPONENT # 1 

AVERAGE TIME TO WEAROUT 
eek 

AVERAGE RATE OF FAILURE 
i bea ee 

COMPONENT # 2 

AVERAGE TIME TO WEAROUT 
?F 1200 

AVERAGE RATE OF FAILURE 
? 409 

COMFONENT # 3 

AVERAGE TIME TO WEAROUT 
? 120 

AVERAGE RATE OF FAILURE 
Te) 1 

COMFONENT # 4 

AVERAGE TIME TO WEAROUT 
? 4 

AVERAGE RATE OF FAILURE 
Saal RS 

COMPONENT # 5 

AVERAGE TIME TO WEAROUT 
? 345 

AVERAGE RATE OF FAILURE 
? O02 


RELIABILITY OF SYSTEM IS 0 


NUMBER OF HOURS OF OFERATIONs O TO STOP 
7 0 
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INPUT X 


INPUT NO. OF COMP. 


INPUT INFORMATION FOR 
EACH COMPONENT 
CALCULATE RELIABILITY 


Reliability 
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OROGRANM 


00005 
00010 
00015 
00020 
00025 
00030 
00035 
00040 
00045 
00050 
00055 
00040 
00065 
00070 
00075 
00080 
00085 
00090 
00095 
00100 
00105 
00110 
00115 
00129 
00125 
00130 
00135 


REM THIS FROGRAM COMFUTES RELIABILITY OF A SYSTEM 
REM KT 12/3/78 

PRINT 

FRINT*XXKKKKKRELIABILITY OF A SYD) EMKKKKKKK® 
FRINT 

FRINT*NUMBER OF HOURS OF OFERATIONs O *N STOF® 
INFUT X 

IF X>0 THEN 00050 

STOP 

FRINT 

FRINT*ENTER THE NUMBER OF COMPONENTS IN THE SYSTEM* 
INFUT Y 

Q=0 

FOR J=1 TO Y 

FRINT*®COMFONENT #°9J 

FRINT° AVERAGE ~ IME TO WEAROUT* 

INFUT T 

FRINT*AVERAGE RATE OF FAILURE® 

INPUT R 

Q=Q+1/T+R 

NEXT J 

FRINT 

Q=EXF ( - xX K 
FRINT®RELIABILITY OF SYSTEM IS °3Q 

FRINT 

GOTO 00030 

ENT 
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APPENDIX 


(pS RE LONE IS I ES EIST EGE SEI TE OEE LED STEELE DES TIE TE ELLIE 


The brief programs included in this appendix are of great use to 
those working in electronics. They give quick solutions to those 
quantities that are repeatedly needed during the course of everyday 
calculations. 


EXAMPLE 

PROGRAM 

FREQUENCY TO WAVELENGTH 

10 REM FIND WAVELENGTH 

20 PRINT '*‘ENTER FREQUENCY IN MHZ'' 

30 INPUT X 

uO MM = 300/X 

SQ PRINT '"WAVELENGTH IS °"5M5'"" 
NETERS © 

bO END 
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WAVELENGTH 70 FREQUENCY 


10 
20 
30 
40 
TE) 
18) 


REM FINDING FREQUENCY 


PRINT ‘"ENTER WAVELENGTH IN METERS'' 


INPUT M 
F = 300*" 


PRINT ''FREQUENCY IS ''3F3" "MHZ"! 


END 


HALF-WAVE ANTENNA LENGTH 


LENGTH 
<—$$_$_$_—____ » 


HALF-WAVE ANTENNA LENGTH 


10 
20 
30 
40 
£0 
70 


REM FIND ANTENNA LENGTH 

PRINT ""ENTER FREQUENCY IN MHZ"? 
INPUT X 

F = 4b8/X 

PRINT "*"LENGTH IS ''3F5'*FEET'® 
END 


LC RESONANCE FREQUENCY 


Coals eae 
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ut RESONANCE FREQUENCY 

10 SEM FREQUENCY OF RESONANCE 

20 PRINT "* INPUT CAPACITANCE IN 
FARADS'* 

30 INPUT E 

YO PRINT ""INPUT INDUCTANCE IN 
HENRYS** 

SO INPUT H 

bO F = 1/2%3-4415 X{SQ@R{E/H}} 

70 PRINT "*RESONANT FREQUENCY = °'5 
Myre HER Teen 

80 END 


DELAY LINE 


ip Zo 


fo = 0.45/T 
C = +/Zo = MisttoZo 
7 = M/rfo 
L = MZo/zfo 
T = RISE TIME IN SECONDS 
fo = CUTOFF FREQ IN HZ 
7 = TIME DELAY PER SECOND 
FIND T 
10 REM DELAY LINE FIND T 
20 PRINT **ENTER FO IN HZ‘ 
30 INPUT F 
4uQ T = O.4S/F 
SO PRINT ‘'TIME IN SECONDS = °°5T 


b£O0 END 


134 


FIND Fo 

10 REM DELAY LINE FIND Fo 

20 PRINT ""ENTER T IN SECONDS"! 

30 INPUT T 

uO F = O.4S/T 

50 PRINT ''CUT OFF FREQUENCY IN HZ 
= ''SF 


bO END 


FIND L 

10 REM DELAY LINE FIND INDUCTANCE 

20 PRINT *"ENTER OUTPUT IMPEDANCE Zo'?* 

30 INPUT Z 

4O PRINT ‘‘ENTER TIME DELAY IN 
SECONDS'' 

SO INPUT T 

bO @ = TxZ 

70 PRINT ‘"‘INDUCTANCE = *'3@ 

8O END 


RISE TINE 

10 REM RISE TINE 

20 PRINT ""ENTER BANDWIDTH IN HZ°? 

30 INPUT B 

uO R = 0.35/B 

50 PRINT ''RISE TIME IN SECONDS = 
"TSR 


bO END 
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DETERMINING XC 


CAPACITANCE 
FREQUENCY 


SOURCE 


DETERMINING Xc 

LO REM FIND X¢ 

eO PRINT ‘'‘ENTER C IN FARADS'' 

30 INPUT C 

4UO PRINT ‘ENTER F IN HZ** 

SO INPUT F 

bO X = 4/C*Fx2*3-.1415 

70 PRINT ‘"REACTANCE = °"'SXS""OHMS'' 
80 END 


POWER TO DB 

10 REM DECIBEL CONVERTER POWER GAIN 
20 PRINT ‘"ENTER GAIN {POWER}'' 

30 INPUT X 

YO Z = LO*{LOG{X}/LOG{10}} 


SO PRINT ZS '""DB*' 
BLO END 


VOLTAGE TO D8 

10 REM DECIBEL CONVERTER VOLTAGE GAIN 
20 PRINT '"’ENTER GAIN {VOLTAGE}’’ 

30 INPUT X 

uO Z = 20*{LOG{X}/LOG{10}} 

SO PRINT Z5''DB'* 

bO END 
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VOLTAGE GAIN IN DB 


10 
20 
30 
uD 
$0 
b0 
70 
60 


REM VOLTAGE GAIN IN DB 

PRINT ‘*HIGHER VOLTAGE’’ 

INPUT V2 

PRINT "*LOWER VOLTAGE‘ ® 

INPUT V1 

O = 2O{Loc{V2/V1}/L0G{10}} 

PRINT **VOLTAGE GAIN = '"SDa""DB’® 
END 


POWER GAIN IN DB 


10 
20 
30 
40 
50 
&0 
70 
60 


REM POWER GAIN IN DB 

PRINT **HIGHER POWER** 

INPUT P2 

PRINT ‘"LOWER POWER’ ® 

INPUT Pl 

D = L0*{LO0G{P2/P1}/L0G6{10}} 
PRINT "*POWER GAIN = °°5D5°"DB** 
END 


TRANSISTOR BETA 


10 
20 


30 
40 


50 
LO 
70 


REM BETA 
PRINT ‘*INPUT GASE CURRENT*® 


INPUT 8 
PRINT ‘*INPUT COLLECTOR CURRENT®* 


INPUT C 

T = C/B 

PRINT *"FORWARD CURRENT TRANSFER 
RATIO = °"ST 

END 
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TRANSISTOR BETA 


COLLECTOR 
Ic 


BASE 


5 > 


EMITTER 


FORCE 

10 REM FIND FORCE 

CO PRINT "*ENTER MASS IN KG** 

30 INPUT 

4O PRINT ""ENTER ACCELERATION IN 
N/SECFSEC 

SO INPUT A 

LO F = M*A 

70 PRINT ‘'FORCE = ''SFS5""NEWTONS'! 

6O PRINT ""FORCE # °""SF*eLE0545""DYNES 
ASTHELE*’ 

40 END 
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A 


AC voltage conversion program 


Arithmetic mean 


B 
Band-pass filter, Chebyshev 
Base conversion 
Beta distribution 
Beta test program 
Bias optimization 
Biasing network calculation 


C 

Chebyshev band-pass filter 
Chebyshev high-pass filter 
Chebyshev low-pass filter 
Class A transistor amplifier 

biasing network 
Color code, resistors 
Cross correlation for curves 


D 
Decimal conversions 
Decibel converter power gain 
Decibel converter voltage gain 
Delay line 


E 
EIA standard resistors values 
Euclidean algorithm 


9 


Fourier analysis 
Frequency to wavelength 


G 


Greatest common denominator 


H 
Half-wave antenna length 
Harmonic curve fitting 
Hexadecimal conversions 
High-pass filter, Chebyshev 


L 
Least squares method 
Lissajous pattern generator 
Lissajous simulation 
Low-pass filter, Chebyshev 


M 
Moving average generation 


0 
Ohmic value 
Op amp design 


P 
Parallel capacitance 
Parallel resistance 
Pearson distribution 


83 
132 


79 


102 
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Pi resistor networks 
Polygon area 
Prime factor 
Prime number 

R 
Reliability of a system 
Resistors color code 
Resonance frequency 


$ 
Series capacitance 
Series resistance 
Standard deviation 
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Transistor beta 
T resistor networks 


Variance - 


Ww 
Wavelength to frequency 
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98 


133 
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